(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 12.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    134330,       3107]
NotebookOptionsPosition[    130821,       3042]
NotebookOutlinePosition[    131227,       3060]
CellTagsIndexPosition[    131184,       3057]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["                        \:5750\:6807\:95ee\:9898Wolfram\:8bed\:8a00\
\:89e3\:6cd5\:7b80\:4ecb", "Chapter",
 CellChangeTimes->{{3.784858684675643*^9, 3.784858688196558*^9}, {
  3.784858750509563*^9, 
  3.784858806742012*^9}},ExpressionUUID->"59b370b8-ab07-447b-8a01-\
a3eb43086b69"],

Cell["\<\
                                                                              \
                                                                             \
\:4f5c\:8005\:ff1a\:6768\:6c38\:5eb7\
\>", "Text",
 CellChangeTimes->{{3.7848588117303534`*^9, 
  3.784858831682797*^9}},ExpressionUUID->"60a03f1e-d9ed-4f29-9b05-\
a91928b5fdf2"],

Cell[CellGroupData[{

Cell["\:539f\:9898", "Section",
 CellChangeTimes->{{3.784858868936207*^9, 
  3.784858870908139*^9}},ExpressionUUID->"ef69da8b-8f4a-4f07-9b4d-\
0600f70daad9"],

Cell[BoxData[
 GraphicsBox[
  TagBox[RasterBox[CompressedData["
1:eJztvcmPLdl17lduBh4S/A88r6kBTwTQkwt4+gzW/D1YfOWJDOg9QDDnAgSO
BVgQJJJF9b0oqkpUl7x5WWxEinxEkRQoSCoNBWhCQND03nR9SX/FxZVrR+zo
TuyT+fuA372ZJ+NEs6NbX6y1d/zP/+n//g+f+O9fe+21//I/ffDPf/iPP/e/
/ezP/sf/5//4yAe/fPxn/sv/9Z9/5qf/z//9Z/7rT//nn/7Z//U//Q8ffPj/
/nevvfa/fPDD//jBz3dJ//Iv/wAAAAAAAPATjKof/OAHDz47u60AAAAAAGA8
RtTLly/xNAAAAAAA0MWo+ru/+7sHn53dVgAAAAAAMB4j6tWrV3ff//73H3x+
dlsBAAAAAMB4jCo8DQAAAAAA9DCq8DQAAAAAANDDiNIYAd/73vcefH52WwEA
AAAAwHiMqu9+97sPPju7rQAAAAAAYDxG1Xvvvffgs7PbCgAAAAAAxmNEadwz
8jQAAAAAANDDqPrOd77z4LOz2woAAAAAANbxr//6zz/BnvMeVdSeAQAAAACM
TfYp4oc//JeS99771t3bb3/+Hv2853qMKvI0AAAAAADn0/Io77//g3tvkvnk
J3/u7o03Pv6A119//e611167R9NoHnut46jC0wAAAMBjoqq12VJ/o3hw7/od
eBq0PErrePrUp37h3oNkPvaxn/rQo5iPfvQjDz6r0DxbnmbNcT2qvvWtbz34
7Oz9DwAAALAW1dvEWE3Ps99998Wq+E3Px99669Orvw+Pi6r+q1UDps917FQ4
l5Lp8SgRfefZs2cPkA/ScS8/I6ptca5n6XE9ojTuGZ4GAAAAHguKzxTDKW50
vCmPo+fcS+eluFSxp56H6/v4mqdDy6PoGKh4881P3B8jmaUeRcda5XU0fx3H
2RvJc1frqml17MrfaLrsa+y3pnI4LUaUPM23v/3tB5+ffRwBAAAArCHHavY0
S2O3/D09z1ZcuWe/BLgcrRow/S33UZFPaPVTWeNRKjQv51AiWvaSXFBrezUf
LcPf0/bE/KX9+mPxNNI3v/nNB5+dfdwBAAAArGHO0zimc+wYvxs/07T6jr7r
Ptqu5yFXcz5T9V4VlX8QymNUnmOpd1FORp43oxxO1b/fx1ivR1mKlqnlu518
LLs9tF5aZzwNAAAAwJg4nrNH0c/2Is63ON7UZ/Yr+sw1a44DW7+fvY2PjSW5
CddW5Tos11vt1U8l15HJ/2gZVe2ZtmHJWACXOgdansZjEeBpAAAAAMZEMVr0
MfpZnzuWU2ynmE9xq9/j4dgueiHFqn6mHr+Lp9m2b0brp1L14W/1U2l5r7Pb
NRM9jdox1p7Z16+pyRQjSv1pvv71rz/4/Oz9AAAAALCWmJvR7/Y0+dm14zz7
GH3mmDY+Y4/9aUaMX8+kFferPSucD4us6afS6qviPiJ5LORWzeDSfirXhPJK
al+1S8w3Ru/2WDyNRJ4GAAAAHhOxD41jN8fZ9jeVp9Hnjr09L8eAT6UvTRXj
t3ITse9SRG3V6hu/pp9K1VffObRL91O5FjxGQB6v2b5y7dgZYlR94xvfePDZ
2fsBAAAAYC2x3ibmXRTPxb7cjvmip8nz0Xf1vFvzu8bYeE0/lYzi3qpua69+
KqJarmsEr7kG7CxiTtLt4vpJHfdq29iHrDr+W4wo1Z599atfffD52fsBAAAA
YC1TnibWjzk+buVpPH2upzp7+yp6+6nIw9mnVexR/yXf0nrXJB7lMuRj3eeF
9oH2kevS5G8ei6ehPw0AAIxCfn48avwI4+PaMudiYu1ZHOM55mlcZ+Z6nDPH
PVvST0XTa92qsYTX9FOpfEvunxL7qfSu/zXmua6Zqv9X9PMeO47aMwAAgP3w
M+VYl69YinGmYA3Ov6iuKcZsjsMl96dxfZWUPY3fT7PV00z1Sbl0PxX3pV/S
TwWPcj3Yr/udm61pHtsYAdSeAQA8Xabud2u/u2VdFDspBo3vmyBXA2uwB4me
xs+mXRulv+tzHXfxM8fw9tXuO2KPPVUrtaSfipa3Zz+VTKufivsGUQP2OKmO
/cxj8zQvX768+8pXvvLg87P3BQAAHEustc9jOfmd163v+f531BhQsTaIWAq2
ohg+/h5jufiZczU+ru2xW/1BqlyG/l7lPvbsp5JzN8br1ZsHOnu/wOWP/YyO
Wb93dsl8RxV5GgCAp4dr7xVv5TFqHX/lWmxN4xp6fe+oujCPtQuwB7mPdCs3
Ead1btBjQ2X27qdS9YPxc4Xcb4YaMOhl7tq81t+Oqq997WsPPjt7HwAAwHHo
HqY4Sr4mvlM6v4cj1yUoporjJ7n2/ghPw7Nk6GEqD1HF/Tpeq7G4XGO2Vz+V
PJZY7KeSxyCbqgE7u30BKkYUtWcAAE+P2Nc5jm/rPtWOszwWbvWc23U6R8Rd
fneC80hH+CYYlyUeRcdqbz8V9S1Y887HVj8V9/einwo8NUYVngYA4GnR42k8
XfzdOM9zVH8aPdeOfQTObi/Yn5ZHcV+ujMdwyqzpS7+kn8rceAB4FHiKjKp3
3333wWdntxUAABxHHqM2157Fuv3sadyXWjHgUfkTrwt9BK6HuX4qedpWP5U1
HqXlW6o+Kjq+tQ7VO16o/wLoY0RRewYAcL2sjbfsaRRDKieiOhr7k/w+tqr2
zP0P9L0jtosxAs7nyH4qHhN5qUep3nmv+cf+KXP9VPAoANsZVV/+8pcffHZ2
WwEAwDxra7+ip1HcmfMtHuNZf69yMY5r177bYA48zTFUNVJL+qnYt8jLZvbq
p+J3YGZv1OqnQg0YwOUZUa9evbq7vb198PnZbQUAAPPE+rEl38u1Z1UeRvHl
lGeKvucIT5P7WBCj9rGkn4o+q/qpqP3P7KdCfgVgbEbVixcvHnx2dlsBAEAf
a3xNHCMg+xn3rfHvrXnEPhF7exrVFMU+FrE27uz2vjRL+6monSoP4VzKlnGK
5/qptHwTHgXgcTGq8DQAANfNUl8z5WlivVke38zxsmPSI/I0mq9yBYrBY91T
HnvtWlnSR8U1YFU/Ffm+qnZrTT+Vqpas1U9lqgbs7LYFgMswojRGAJ4GAOD6
WeJr7FWyp/E4Z362Lnncs+xh4jtq9s7TVH0lzm7ftdtQeZTKJ9jHReRb9uyn
UnkjHzP0UwGAXkYVngYA4HHQ62vkWRQra9rsaar3f+T31bgft+Lup/L+mKl+
KhVqo6pGa69+KpqXx3mIZJ86t/54FABYyqhijAAAgMeB4tP4rsqp/v2t8c70
3exrom9xfxv3objWmHgqxq/qwo7up6KcTPVOSe/L3E8FjwIAZzGiNO4ZYzkD
AFw/imUV+yo29jP8OV/T+zw/TzNi/Lymn0oeq1js1U9F35nqp5KXG9u18ijU
fwHAKIyq58+fP/js7LYCAIB+HOMqZvY4yO778hjHQW7VgFX9VNQe1bsa96oB
a/VTaa0nfVQA4NoZVeRpAACuF+dn5GfiO2Vin/6z13GPbYy+QLmOPfqpVKje
K/dRWdNP5ew2AwA4ilFFfxoAgOvE8b3rovL4ANHXjJSvWTqmlvxE7MOypA5M
Xq/VTyX3UYljIdBPBQCgZlQx7hkAwHXh3IDicsfufk9mNe3RvmbKo1TIe1Vj
CrfGCvPf/X9rrGLXm/X2U6EGDABgOaPqS1/60oPPzm4rAACoUdytfIJyDbFe
aqreKfuaLcuu/EHr3YxVjZjHL6jIY0vH5cY+/5pH/sxjg3msab9jJ/az8Zhu
T2X8aQCAIxhRGveMMQIAAK4D+5nYd0R1WHlM5tZ3c/+ayqO4f06uydJn1ftQ
ppBHOWIc4pyT8tjUHldMy7Cv8c9GbdfyTgAAMM+IkqehPw0AwPh4/OHsZ3re
sWmyr8n9VEyVW3ENWJWPmfMoe/uHqs7OORovWz/ndbO/wc8AAKxnVFF7BgAw
NorHFYvnvvGO4ZfOSz5IOY1qDGKP77WEajn2Es4t7ekjVD+WP8uexv1roq+a
qm8DAIA+RhW1ZwAAY2JfoPi8eu/8mvn5nS3ug7Oln3yrX4o+l3fQMjzOck99
XO82yJvksZWn8jT6u36e63cEAADzjCpqzwAAxsN97xWbV+9+XDqGWaw7c/y/
xWPou5pH9jXRN8l3eDyDvdrF46ZpO6I/8TZ5G+N4CPaFHh8NXwMAsJ4Rpf40
1J4BAIyF4/bWe1ha73+cml8c9yzmNLasY+Vp/Lf4fsw9673cNppv9jR+F41y
WLnezeMc5PwNAAAsY1RRewYAMBb2IJWnybF877zi+2n26Fviscam1kfT5H4t
e7RNy9PE2rPqu+5LtLQNAQDgx4wqPA0AwHi49iz6GtVOLak5a71v0/mTpfme
1rwrf2Dv4ffBXNLT5OnjOAFzPgwAAKYZUao9u7m5efD52W0FAAD/8GEuRb5G
fmbJ+GEtPyP28jRVv5b4d83f40DvNfbZEk/jNnCeCE8DALCdEUV/GgCAsfA7
L12z5XopxeJr3kNT5Ugu4Wk8Taz32svT5HeHisrT6OfoYag9AwDYzqh68eLF
g8/ObisAgKeIY/7q3Sp75GfMpTxNnLY1nsAaPFazfIx/13pUYzXb68QxAvZ+
Xw4AwFNiVJGnAQAYh5ifWfrdHj8jLuFpon852tPEOre8Lt5WjYmm8dAYyxkA
YBsj6uXLl3gaAIBB2DJGWPYzc9M7Z7FlfeUpWsuL8z7a03gZrfnrb5qW/AwA
wHZGFeOeAQCcz55+pnceWz2Na75iH/xYP2cPYQ9ypKfpaaNcyxffo4PXAQDo
Y1Td3t4++OzstgIAeCpkX3DJeezlaeQt9HPMhbguTevk2q8922yNp3HNmdZJ
31W9murR1A9nKoeD9wEA+DEjitozAIDz8Dhciv239GtZ2zdmD0+jecgTaBs0
3rT7tLiPiz4/4r2bmndrm+1BYj2a+9toXfN7TIXbwr7M6PtHbQcAwDUyqqg9
AwC4PNHPbJmH/cyafu9bPY39lGN9e4D49yPyG+4fE/1TrCXz+M36u97tE99b
2kJ5JG2H36cT0fz8npu96ucAAK6VUUWeBgDgssTarC3z2OJnhHIWW71GzIns
mYeZwnVu9lJqS3kP5YnEnH+pUA1a9GDRi+W+QgAAT5kRpdoz8jQAAJdjj/zM
Hn5mS83anm1R4ZxIxL7FyI/ZwzgX00ur9owxngEA5hlV5GkAAC7DKH7G89G6
aF57xfItj6J6rdxHxeO0LSF/Xz7EfWZ60XrG/jHmTG8HAHBNjKhXr17d3dzc
PPj87LYCAHhsjNB/JuJ+9lOeplX7VU0nr6F5VVR9VFw3VuFtzcTl2dOsfTdp
VWN29jECAHANjCryNAAAx3JE/5k9iHma1t89vpjw75VHcV/6Cq1/1Tel1zNV
uD/N2fsWAOCpMarwNAAAx7G3n1Esr74kW/F7Y5wzaeVSqrxLa+yvLR5lKX43
jtqWHAsAwOUYUbyfBgDgOPaqN3O+Q9L81ozrVfWJt7/J72QxXn6rBuzstsXT
AABcnlGFpwEA2J+1fibmNtx/Rr7DvkbzWzNOsdD6uM+Kl6P5XeM7V/A0AADn
MKrwNAAA+7Km3ky+Itd+ycvoXZC5f4o+a/kXj2/s/i+ieteKlqnPtBznZK4J
PA0AwDmMKI17dnt7++Dzs9sKAOBa8Zhca+vNnDNxH3j9n2u/5HXkX/SuFfkX
93Px+AFxXK+peF9/w9MAAMASRhV5GgCA/XB//rWxtsdFtp/J8/D83VdfrB2P
+Jo9jceirtoIAACOY1SRpwEA2IfoZ9a+N2XKz8Tp9ojjr9nTeP3PXgcAgKfG
qCJPAwCwnUv5mb3XWZ7mGscIAACAcxhV5GkAALZxjX7Gy/W4A+Q8AACgh1FF
ngYAYD3X6me8bI1noFzNKO+dAQCAsRlRGvcMTwMAsI5r9jNGdWfX2p8GAAAu
z4iSp3n+/PmDz89uKwCA0XkMfiauy9ntCQAA18GoIk8DALCMx+RnAAAAljCq
8DQAAP3gZwAA4Ckzqqg9AwDoAz8DAABPnRGl/jQ3NzcPPj+7rQAARmSLnzF+
xyV+BgAArpFRRZ4GAGAaeRh5GeVX1voZfU/vgZEvYtxkAAC4VkYVngYAoE2s
F9O4x2vmEf0M+RkAALhmRhS1ZwAAbbKfWeNH8DMAAPCYGFG8cxMAoAY/AwAA
8JBR9eLFiwefnd1WAABzHOkR8DMAAAA1o4o8DQBcG/IL77774sPxw/b0DPgZ
AACANiPq5cuXeBoAuDrkNz72sZ+6e+ONj9/7hr3GRsbPAAAATDOqGPcMAK4F
eQTlZ549e/ah55B/eP3111d7kDhv/AwAAMA0o+r29vbBZ2e3FQBAhT1NfE/M
Hj4CPwMAANDHiKL2DACuEfkGvQPT3kH/K3cTP+sFPwMAANDPqKL2DACuDXmP
N9/8xIfvwJSnkCeRr9DPveMG4GcAAACWMarI0wDAqNizZFyDJvSzptOYAfIn
8hjK1+hvrk9rsdXP6DtaFn4GAACeCiNKtWfkaQBgROxb5Bdaf7ePcN7GHka/
63ut7wpNq++sHTPN35Ensrc6u80AAACOZlSRpwGAUYl5kKnp7GnkT/S7a9E0
HlrlNVwvJvAzAAAA/YyoV69e3d3c3Dz4/Oy2AgAwPb4m9mnRz/pftWhVTVn0
M3O1aVPgZwAA4CkyqsjTAMDouI/MlK/xu2r0Hs6Wn/E0e/mZLfMAAAC4RkYV
ngYAroHsayq/IvT3qo/M1nozQ34GAACeMiOK99MAwDVhX6M8jP53nkT+QvmZ
Vu5ka70Z/WcAAAB+xKjC0wDANWFfo/7/9jXyGvI0lV/Zu94MPwMAAE+ZUYWn
AYBrI/oa1Zo9e/Zstt4MPwMAALCdEaVxz25vbx98fnZbAQDMYV+j/Mzc+GaM
1wwAALAPo4o8DQBcK/IZ9J8BAAC4HKOKPA0APCb26D+jvA9+BgAA4CGjijwN
ADwWop9Z60X8zs6tfXAAAAAeI6OKPA0APAbcv0b5lbVepOfdngAAAE+ZUUWe
BgCuHeVkXC9WjX/WOw97orO3BwAAYFRGlMY9w9MAwDWzh5+JOZ6ztwcAAGBk
RpQ8zfPnzx98fnZbAQD0gJ8BAAC4LKOKPA0AXCPUmwEAAFyeUYWnAYBrAz8D
AABwDqOK2jMAuCaoNwMAADiPEaX+NDc3Nw8+P7utAAAq8DMAAADnMqrI0wDA
NYCfAQAAOJ9RhacBgNHBzwAAAIzBiKL2DABGZ6/xAN599wV+BgAAYCMjindu
AsDobPUz5s03P3H6tgAAAFw7o+rFixcPPju7rQAAhOrF3nrr03ef+tQv3P+8
Zh7yQfq+6s62eCIAAAAY19OQpwGAEXH/F/mRtV4k+pm1nggAAAB+zIh6+fIl
ngYAhgM/AwAAMCajinHPAOBS9PgT/AwAAMC4jKrb29sHn53dVgDw+JDPkMdQ
n/+WV8HPAAAAjM2IovYMAPZAPkL+YQr19X/ttdfu3njj4x9OH+eBnwEAABif
UUXtGQBsQT5CfkXjLVfIYyg387GP/dS9pxHPnj37Cd+BnwEAALgORhV5GgDY
it5n2UIe4/XXX//Qz0TkhfAzAAAA18OIUu0ZeRoA2Io8RYX8hXxN5WeM8jfK
5+zx/hn8DAAAwLGMKvI0AHAU8hvvvfete8/y0Y9+pOlrlMdZ815N/AwAAMBl
GVGvXr26u7m5efD52W0FAI8L+Q31qZH30BgBLW9jX9PjT/AzAAAAl2dUkacB
gEvhejR5EY0TUPWz0WfqZzM3H+V/3nzzE6v74AAAAMByRhWeBgAujbyI/o+5
m1ybpmnkf7JnifVs+v7Z2wIAAPCUGFG8nwYALo28iMYNsFdxrZk+k4+J3iaP
+Zz9DDkaAACAyzKq8DQAcCnkRVr9XzxWmryKas/8Pht5HH9nrZ/B+wAAAOzD
qMLTAMAlsJ/p8RceU8C5G/ex8fs7l3gUz6c13rQ5u30AAACugRGlcc9ub28f
fH52WwHA9eJxAOJnU/mZnnnpu8rX+B2dS74vHyRPJG9kND/jd4PSNwcAAGCe
UUWeBgD2Qh7CuRX/vtbP+Pux3mzN2M0eH00/27doPpqnx5WW59F05GsAAACm
GVXkaQBgL+Q15BXkE+QXtrw/phoPYM07aTx2tL5jX2RPI7QMxhsAAADoY1SR
pwGAPXBOJo7HrH7+a7zC1Phm0ddMzTuONyB/pVyMc0b2N9VY0QAAANBmVJGn
AYCt2IPk92c6X7N0jLK58c30uevJWuj7mkb+x+OoqS6u8jHO+Wi5Z7clAADA
yIwq8jQAsAV7EOVBKk8jb9HraXrfP6PPlWuZmre+71yMPYv709jXaFlenvxP
fG8OAAAAPGREadwzPA0AbEH+wH3tI/I4SzzC0vdputatZxnx77FPTRwHbWk+
CQAA4CkyouRpnj9//uDzs9sK9ifHaryT4zoZ7Z0q8jOq69I4y9nPyJ8sGRsg
9uVf8j15kqlxmD1f+R+vr9ZP+O/+fOlY0QAAAE+NUUWe5nHjsXUVqzkGdh/r
LXU2vMvj8vjdkcIx+pm+xu+NyfkZ9VtZOi6yprWnWPM9tUf2Is77KP+SxxPw
+GxuQ087548AAACeOqMKT/P4UbymWM39n10rpDhwaUxsP6T58Tz7cjiP8OzZ
s0P7fiydn9Yn+hkfU0vmE3Mka7bH4wVkL+Lj3vmZapmx3sz+CE8DAADQZlRR
e/b4UfyWPU38XbTi0KpmTc+88TSX34exNuqIMYi9b3v6svgYyn5m6TGx1c9M
zcPe3Z4mHuOa1v1o8jjRZ+9rAACAkRlR6k9zc3Pz4POz2wr2pepLbU/j3xXb
xb+7Fkefx+lcy1Y9+4bjcNy+xjcsOU68b6d8jWvO3IdGuZo1OaO9+7DkXI23
R+unZXicNE3nfEzl2eM4aQAAAPCTjCryNI8fx3bOrSi2c2zs/tOuJ4vPrRX/
ud9Gnhee5rJkT3NU3J19Tevv9jPqO+Pxktdsz15+Zi7f42Nc6+7tqLbN50E8
5gEAAODHjCo8zeOn8jT2JNGf6HM9047xs+R3Frp2B09zeeI+0e/2m0fUSsV9
XK2Ha87sZ7bkZ/Ze/9Z7OOfq9exndA7od+d2OMYBAAB+khFF7dnTwe/90M/x
+Xj82X2qHbe6nkjfjX2/8TSXx/tKPsLvVHHO4QiqOjQfH8rRaF083ZrtOMLP
LHlfTeu7XjeN85z72gAAAMC4noZxz54GHrvW/fv9meI3f+73Dnra3L/G/+Np
ztl/ufbs6Hg752s8bvPa/MXR74DxGAdrj015N68ffgYAAKBmVL148eLBZ2e3
FexP9CnuSx3Hs3V/A8ebeJqxuMQYARWxbtH9rdYsP75/5sgxDmJfsbXtfAm/
CAAAcK2MKvI0T4MYU2ZPE8cHNrn2zM+t8TTncJan8bHj/MeaWP/IerNqXfM4
5QAAALAfI+rly5d4mieE4j33hfCYtfnZub2K+0t7HAH3s8HTnMOZnsbHTs84
z9X3LuVn3E54GgAAgOMYVYx79rSwp3FcrNjPeRv/rNhTv7tvTaznwdOcw9me
RsR939MP38eRj6lLrePacQIAAABgnlF1e3v74LOz2wqOwXU50dM4J6PxtBQL
xvdrytO4r02cB57m8hzdv37JMeT9P7Uu9jP5mLrU+jmvePZ+AwAAeGyMKGrP
nib5XYruM1PFnooPq3cvVp/B8ftthHZ33WIcUyL//Qw/42XjaQAAAI5jVFF7
BmLqXYRnrxuMid9TGX3NmX7Gy8/9v6Y4uw0BAACujVFFngYA1pLzNdHP9ORJ
8nh7e+D3y3q8vhZHvrMUAADgsTKiVHtGngZgHa7BOgLnO5Zw1Pq4LrGFfUx8
f6vHnJhD0++NcjTuHzaFvBi5GgAAgGWMKvI0cDZz9UEj4jGu/a7SPfF7UDVG
3RIUyx+xPn7f5hyvv/76/Xr3Tu93eKod90R+xWP2zXH2sQ8AAHBtjKhXr17d
3dzcPPj87LaCdRwdwx+Vj5iqD9qCvIHi7KOQj3jttdeGwTkSj4+2Fzq25vqm
6O+x5uxMr+nx+vAsAAAA+zOqyNNcliO9QU+tzxr07Fsx4rNnz3bF8zzbC2xh
aS6lF7WLPUVvXsfvSN3bJ/Qe18q7nPleGJ8DzlnhaQAAAPZnVF2jpzkyb6D5
L+3H0IPme1T/AfchODu+Hw3Htm6fvXEO44jjJR6PPcet/c9ZfmIUTyNfp32P
pwEAADiGEXXk+2mO9B1H1NcY9S0+6tn7aLVKS9g7RxNzNXv3pzCugzoyN3bE
tUKeRsei4vL8zlOfW94+/a51cb7mKXsarYPzfngaAACAYxhVR3gaxWSKxY7o
wyDPcXZ8v4Wj+naoXY7ql+KapiO9wVGcfd6vQeut80f5JZ1Lan/9HLdH+9se
ZqmnOaJtej3NmuX2fkdtpXNB5xn9aQAAAI5hVO3taVwHc4m6oiM4auyoGHNe
I2efP08JexR7SeVjYt4he5glnkZ/13Sad2vaNft8ztPo7/Ic1Tth5pbn8aKn
pnEb+NowtX0AAACwnhGlcc9ub28ffL5lO+1pVANyRB8Gj/96RB+GI9/xEftH
AEyh48RjmLnf+16exvNWPqM6Ht0nZWkNWcvTeP21TF8TYi2d6+gqD+J5uvbR
/dIq9F3naORppqYFAACA9Yyqo2rP9P+19WMAGIHoafbO0/RM6zHX9vA0cZ7e
Ho/l5vPZ4zhEj2Wv43m6/q7lwzSN+6vhaQAAAI5jVO2dpzFTdS1n7wuAkbHv
EB7vOuYx9vA0rdqsteMNTHka/83juWnZ9jTOC/n3+J3o6/Rdz6NatqaNdake
PwEAAAD2ZVQd0Z9G/7sG3p8rdtHv+hxfA9DGvsJ1Wo7r89+vxdPod/3N49At
9TRz26jrShw7RD7w7H0IAADwWBlVe+ZpFFv42bLHoHUfFccdeoaa4xcA+DE5
R1HlPa7R0zhPE2vPWp4m9+tprZf768TxQ7i+AAAAHMeo2jNP4zFoFVM4JnEN
vGIR/awYxbEJcQfAQ3KOovr7NXka/03zVT/+WEPW8jT+m/937VlruXgaAACA
yzCiNO7Znp7GsZjimty32fFIrD2hBg3gIUt9xzV5Gs031p9OeRr/XdO31lm/
+z2beBoAAIDjGVHyNM+fP3/w+dptzM+XPW6RPlf+Jj6bbfX3BXjqPLY8Ta49
y3+bytNofsrt5D5F8bv53VV4GgAAgOMYVUfmaaKnUYyEpwGYR3mJqfdGXqun
qcYim8vT+HutdY1jA+BpAAAAjmdUHeFpFFMo1lBNiGOcOA4ttWcAbXRe6Pxo
vetFn8lz9IwJljmz9myJp/FzEPe7y9usaTQ/v2fT6HfGcQYAADiOUXVE7ZlQ
/FG9U1yf6e+M6QzQZu7ciH9f62nie2zXzCvPd+qdm6o9Xepp4npKOTelnytP
w3UFAADgOEaU+tPc3Nw8+HztNubas+xnnL/BzwDsx1JP42cOfgdOfMawt6ex
Z1EtXVVrmsdHzNukXK/mK3TtiHkajx/gbRCa/uz9AQAA8JgZVUeOEeDPY37G
v+NpAPZhiQ9xDZd8gMdd17mZx1Zu5Vum1mEqT+N3VVXro+9U753ResijROL8
q5wTffQAAACOZVRdytM4f2M/o9+JP+Cps4e/X5pbcT7GudSqT//SdZrzNEtq
6bz8uJ65Rs55X95zBQAAcFlG1N61Zx7fqPI0+jzGKIx7Bk8dHf+qnRI5dl+a
I1lTL7Ync55m6nvZs7hNWt+JNWf4GQAAgMsyovZ856bjDPXTrWrqY128a+Px
NPBUcR93nS/qaxL7hLi/i6bTOWJy3iLXYI3maSqfFrdHxG0Wqodzm1T97nyd
cR+gs/cjAADAU2NUvXjx4sFna7exNQata83kY4xil7P3CcBZRE/TQnF9xF4n
Yr9wdh1WHh9En+V11Tmft2lq+7OnyX6GPnkAAACXZ1Tt+X4a0Yoz8jNbakbg
MRLrouao3he5FI1drByo3wfVs9yj0LrIt2hd8hjLa9C88jL0Wfxc/gZvAwAA
cDlG1MuXL3f3NAAwT0+epsrVyCsoJxNRbmSk2jOPE23kO5bkZ2Ke5uz9BAAA
AD/JqNpz3DMA6KPyNPIrOS+h8TZyH5Qq5zmSp5nrR6Pp/W6cSPZy1JcBAACM
x6i6vb198NnZbQXwFFB8Lw9g1o5/NpqnWTqetIltIc7ePwAAAPCQEUXtGcC5
xHexrPUj1+hpjmoLAAAAOJZRRe0ZwHXzWDwNAAAAjM+oIk8DcN3gaQAAAOBS
jCjVnpGnAbhu8DQAAABwKUYVeRqA6wZPAwAAAJdiRL169eru5ubmwedntxUA
9CMP4bHCzvITWq7GneadMgAAAI+bUUWeBuD6GWGssLOXDwAAAMczqvA0AAAA
AADQw4ji/TQAAAAAANDLqMLTAAAAAABAD6MKTwMAAAAAAD2MKI17dnt7++Dz
s9sKAAAAAADGY1SRpwEAAAAAgB5GFXkaAAAAAADoYVSRpwEAAAAAgB5GFXka
AAAAAADoYVSRpwEAAAAAgB5GlMY9w9MAAAAAAEAPI0qe5vnz5w8+P7utAAAA
AABgPEYVeRoAAAAAAOhhVOFpAAAAAACgh1FF7RkAAAAAAPQwotSf5ubm5sHn
Z7cVAAAAAACMx6giTwMAAAAAAD2MKjwNAAAAAAD0MKKoPQMAAAAAgF5GFO/c
BAAAAACAXkbVixcvHnx2dlsBAAAAAMB4jCryNAAAAAAA0MOIevnyJZ4GAAAA
AAC6GFWMewYAAAAAAD2Mqtvb2wefnd1WAAAAAAAwHiOK2jMAAAAAAOhlVFF7
BgAAAAAAPYwq8jQAAAAAANDDiFLtGXkaAAAAAADoYVSRpwEAAAAAgB5G1KtX
r+5ubm4efH52WwEAAAAAwHiMKvI0AAAAAADQw6jC0wAAAAAAQA8jivfTAAAA
AABAL6MKTwMAAAAAAD2MKjwNAAAAAAD0MKI07tnt7e2Dz89uKwAAgD3413/9
53uqz89eNwCAa2RUkacBAIDM0ph/rUfQ9374w3+5p+U/1i5H07777ot74vfe
e+9bd2+//Xl8DQDACkYVeRoAADD2GG+99en72L9nek37sY/9VJdH8Pz9v5ah
74s33vj4/f+t+ejzT37y5z6cJlN95/33f3D35pufuP/f85DH0Wdafm+b+P+5
5QEAPHZGFXkaAICnS47Xlb+Qt3j99de7chnyBZ/61C/ce405j6B5adpnz57d
ewqh5diniNYy9Zn8j7yTvZZzMPZD9i15/expvI36jtfX/ip+x/P3MjV/fV/f
0/oJbQe+BgCeIqOKPA0AwNPEORbF6/Yyc7mS+F39r+/KHyj2z9/Jv3ta+QH9
HvMlrgdr+SJ97u96+o9+9CP339fnU15I02h6Ld/LsZfK33WbCHsefV9eSt/R
8vWzfFlvngcA4DExqsjTAAA8TRSTy8MoZlesHvMTc9+1D3BtV853aL6Vz7BP
0M9anr+raVu5nlwv5nnaR1W5Fn8v5mns2Zwf0jztdfI6Rv+k6bV+mk6a8lAA
AI+dEaVxz/A0AABPE8friu1bvqCFvIFzII7x9ZlyGPpMORTnOvydnAOJnkaf
2UPkZTm/o/V0rsXzi/PO/VzsV7ReziXpdy3Hn7VqyDStczFuI3skrwueBgCe
IiNKnub58+cPPj+7rQAA4HjsSWL/eedR5sYHULwvXyDvIl9gnL/QfFvL9HT2
NHk98vT2EFoveaZYF2Yvpr/H5bufj/M/9jT63+vu/jstP+d54mkAAH7MqCJP
AwDwNLGXcP7D9V3CeZjWd90n333vo8fQ31uexjkZfd8eI+ZoqmXaw7gfjGvG
7FUizrtET1P1p3G9nb+X+xBFn+Tv+2+uRcPTAMBTZFThaQAAniaxP41RbO//
p2J214zFnIXHBJvL02gaj03g2jWvj/1K9hf6X/kVewx/T9Paf0VPlPM0roeL
2+tcjZeZ28Z1cvY98lOx/xGeBgCeIqOK2jMAgKdJHBNMOM/S0wfensbewP3u
W54m5nI8zlp8J43+l2fxOM9x2V6OPEns+2OqujX97pyOc1HOrzjn43GlW+ML
RE9kP6WfeT8NADxlRpT609zc3Dz4/Oy2AgCA44mexvG7++NXfVsiOU+T3wMT
PY37xNj7+P03+kz9Y3JfnLic6D8qrzXlaexf/Hf33/E6eJyAyp/E8dz8PhvX
rM21DQDAY2ZUkacBAHiaRE8T+9b0vD9zytPod+U14nL8bsw4blkc96zqS+M6
Nfe1WeJp/Lf4d/3sfjyeb6vGzp6m6puDpwGAp8yowtMAADw9ol9w7O8++NX7
MzPZ0yjOt49x3qUaazn+Hj1NtQyPu6yf13ia/Hf97No298eJnsbr5PX336bG
Z6MGDQCeGiOK2jMAgKdJzoE4l/Laa691jVOc+9O4jss5jbkxBsScp/F66v89
PI3XW8v1mGbVeGdahvruxL432r5cX+c+QfgaAHhKjCjeuQkA8DSJ731xTO7x
veZ8hsh5Gs9zb09j9szTuA+Pfq7W0zVq9jQexyB6mrn3hAIAPFZG1YsXLx58
dnZbAQDA8cQxkBWb63fJ3mYqVvcYANlLjOxpvM32JHPr6dyVPFCeF54GAJ4q
o4o8DQDA0yK+e8XjernfivuPqPZqKl6vxmr2eMlHeBohP+K8ksdn87q0PI1z
K3EchNwGrbGcNU+PKZDHG/D387jTAACPnRH18uVLPA0AwBPDY3rpZ49zpp/z
+yrla1rv31SsX83b75GZe7+N3//ifipT6xt9lj2NPZTHhW59z+Me6Hdth352
H5nWtnl5ys/EfJXnF8eDbo0FDQDwWBlVjHsGAPB0UPzt/ITf+dKazu+rqf6u
v7WW0eNphPM6S2rPYv8f50qmPI28icdjcx2Zv+9+Mnk9nQNyHivPU393u+Bn
AOCpMapub28ffHZ2WwEAwHG4v7zi/al3rczlWVp/m5tvnG7JuGHVPOP7blrr
Gf2Hluef5btaY7y5vuzsfQUAMBojitozAAA4k0vnOabemQMAAPOMKmrPAAAA
AACgh1FFngYAAAAAAHoYUao9I08DAAAAAAA9jCryNAAAAAAA0MOIevXq1d3N
zc2Dz89uKwAAAAAAGI9RRZ4GAAAAAAB6GFV4GgAAAAAA6GFE8X4aAAAAAADo
ZVThaQAAAAAAoIdRhacBAAAAAIAeRpTGPbu9vX3w+dltBQAAAAAA4zGqyNMA
AAAAAEAPo4o8DQAAAAAA9DCqyNMAAAAAAEAPo4o8DQAAAAAA9DCqyNMAAAAA
AEAPI0rjnuFpAAAAAACghxElT/P8+fOzVwMhhBBCCCGEVqvK0yCEEEIIIYTQ
tQhPgxBCCCGEELpmUXuGEEIIIYQQulapP83Nzc3Zq4EQQgghhBBCq/WU8jRv
vvmJu09+8ufOXg2EEEJXrmfPnt29++6LB59/9KMfuf/8/fd/MDuP99771t1b
b3367vXXX7///6lIbfP225+/vx9r23/4w39Z9F21fW5ftbnn1dP2mt7L1354
7NI2anurtm4dy1HaX3lfaZ76XkTHsWKtN974+IN5vPbaa4v41Kd+obk+2pat
54y2W9t1hkZri8ei0T2N9uOS/T4l3Wt6rnUIIYRQSzF+zvJ9SPGSqKaxj1Hs
p581P8fV/p7RdI9B2lbfp3Uv1nbp/q6Ycomn0XeqeFlt6PbW/FvPL+1jHAdG
/6nvxXZ/TM9A1S6tY0n7wF587vvaj5bbKR6vajPtI9G7X+dityytp9bXfqRa
j/hZJZ1vWu6SY0/SdlXLmmOufa0z2uKx6LHVnk0dC9rfe+1PHUPZS+l4qfy+
zhddf6fWTefIUo9tr9dzjvTI17SpZwFLpOtFdQ758y2qfK7aOD9r83Ml30N1
La6uX0vaX8vw/mwtd4m0Plovrd/UcbREvuZ6fnGfaju33qe1T2PbV22rn7Wc
uF2tY0vz621Dx4Jz+7RXjk332p+KjeLxkfen/rZ1/1bXnrnz1ve1LMcpa9qw
Nc+18nm9l3ydjtfIPdpfis938/ESt8Hxc5Zjvta8vc6O0+e01z2pdz5rroNa
rqfRcvL2t+LAPA+tjz1IXGZsK03n+DprKicR22RqH0X13o/mrl2986mW3at4
LOW4N/8evYvl9ne79OR3sqrp8zZo/7a2W5+r/bbmJbR93sYpn7L0ntxzPbZG
aYvHotY7N0eS9qf2e889d+rcznGYcf45fz51H/F1P0rHVPTKns7Hd2vddEwu
iQvUHq5T2MPTOKYWS87FKcVnkNW29d4rWtJ343y1Dfos5uH87MLto8+rfPiS
9vfzP18/9Lv3+1r53uHj295ybVzta3O85+e6ljX3obzOcf85jo+xm84pfRb3
R1Vfo997jwV71LhPW/feHsVzSbIP2+K5fQ55f/o8dTts8RBWPu/dti2v6mO0
Os61j9YcC1PzXCPfm/fyNG7n3FZ7tH9+Pqaf43Ulb0PrOUrruI/n71JPE7Xm
ntQznz2ugy1Pk4/FvC7OAVTrUbXVkjqrnMdY4mnm7kc9166e+UStOWeqZ4xL
a1c0vdt16b3E+yx7hLwNrdjB98etMby2IV6Xe58xzMmxT8/1ZZS2eGx68WKf
5/xHydfgHrXO7XgPqq57+Xieu49U131Jx1a+1+m4bU3vaZZcE3R8O97dw9No
nX1O5Fh1jewRpXyNtrbGFa35qm28/lXfKS0v74c116useK9aIl9XczvE+/ZS
Vc+UcgzWGye11DpOYjtU25VrRpYeB1Xts73rGml9Kh+gdV/jKVvXKq13vO9s
9fTVee9jKcttrO3M+3ztcTA1z7VyG+3laZx7rdpqS/vnPEHVx0DLtFf3c968
vPxc2Mew4xwr5rX1t9a5stc9qWc+e1wH13ianOP3c5M4Tz+j8LFZ1ftUOQlJ
+zLOL+a0p+L+nvtRz7WrZz55O3rOGbeL2yNev/MzHD/jXHJNXnrvs//N54yV
/UZet7g8rf+a/gSug7T28DRaj6UeY4S2eGwaPU+z5L5bndt+ljGVy9/L07S+
15o+5wi8rrmGJ95Do+Y8jbapeobt5WT1eJpWvqv6Xusa7b+tfb7Qmm9PrJLv
kXE++f4v9Xjq1jUvx7JxOVU9uDW1Ha1+ZFPHQXVcLqn3ymodJ3PX/nw85hyN
2qSK/aZq5Vr7x7Fhdd5oOVPHXnUP8bJa7T+lfBxM1bX3qLW/q/VwrVV1zsQc
jdepiv9yLDY1T2vqvMl5SMeOU89+PM+e9o+xb9VWW9o/5qdizOy8h+bruiL3
1ViSp4n1MFasjVzqaZbek5bOJ2rq/Hf8Hut5HGdHfzHlaZwLjm3vGjO3ve9F
bvve9fQxEc9Tx6ied0tr70f5HFkyn95zJqvKY8XtbvVVmppf65ycujflusC4
Da2awSx766X3sXgdsbZ6GrejrwfOXfbozLZ4bHr58uVVeJq5c2YqtvA4HPH3
I/M0rb6L1fRVXJ/jvirOs+ZiWV+TqzxAq8546fNL1+9U59JUzLOlX01rvnOx
qp+pxvnk6WP82Yrzopz7afUDrtZzrj53Sf1u9Zw4q9rfW/rVtI6TqZo5r2f8
e/ZV2YdUHj+qqquLqp5vTu0v1ycuqWVTG7am932t2j9b+nVU5331nCI+d67O
mTx9jrGq43dunlHVuZPPQV8/5vLZLVXtH4+z1jVybfvHPiHRb2s7fNz2xECt
OHVt/nqve9LS+VhT51WlqlZyztPkNo79mbzcnuOnWo62bW0N65r7UXXt6p3P
lnOmmr9rNaby5q3nl7kte59Bu39+PE8l11PNHUex7rCnv769hq+TufZyqj9N
T9/+WLsfl9OT8zqrLR6rRh/3bGudTDW/6lnwVk/j53fVsdK67rTufY4F5nIE
PbVn1XW19fx6jaeZiinnYp61dSZTdcet87/yJ1X7x/vFXI5AmvKcUm7rOS/X
8kGVpvxkXF7VLlvOq3ycuD9NNT8/x6v8TrX/Y51clSOQYl/aKQ9btbXHGY2K
z02WxDVTftLza/19S/1TPu9jHwkrxyf5nGntf9c9VvnhuXlmVW2dr0cxV7Q0
PqvaP+f+WtfIrfV/U+exryuOOe0H4vFf1Z7FGqHM3POfve5JS+djzV0H8/z8
TFvfm+qb0fJXreuyp3c/3OoYrWrPPF3F3DVhyf1o6trVO58t50ycv/tpxGMs
5tJatRd7eBpJ+zDH8a3ahqhY+zql6hyPtXZ75GlcAxZjhpz77nlOcUZbPFbd
3t6evQqT2upp4jWkxVpPE5l6nj/laapj3ffLuXi1x9PkGDk/J83rs+S4n3pG
LfU8x13zTLLap7E/elZVVyC12t9tNrd+Pc/0c66glSPzcpe0yZSflHwcVcfQ
lvqbXG/gcVOn1tvxWvQoreXbH83VQNhLTV3P83k5lQPzPamnXXr8pOR9mo9N
v5tjjaprTz4O8vsKKk9TLd/HRXU/nZtnVs4T52f5uf/Ckvisav/4PMJqXSO3
tL/bKC/b9XiODd2Obrc8xlXrWptj2J5+Knvdk5bOR1qS2/Q+clvF98P0eBpf
02L7+B0/vi+47X1tyOd7K0bNPrVV55C19H7keedrV898tpwzkrYv98Pw/a7n
vpOP2/zMbm281rsNWkdtf88YrXNx/FZPE59BxOc8eVp7nt66sDPa4rHoWmrP
9szTuM45aq/as6XTz8X7c9vd42mkeN2ptj+uT+9x31PzNBfz9NRorJlvVB7b
Ki+/kmOvVlv42UzPfTzfJ1t9o5b6mTk/6evtnCdeozX5PCm3Rav9dWz1HtvS
1HunYq7Ax8Kc5moYpTk/2VoHa8t1ba5tWvW12dO09qHH4I7HYs88K8W2jO1Q
1bksua62nlFUMXErHlnT/vF5k72318XbGp9jtOpXp2KMmIeYq/mK27PHPWnJ
fJZcBz29/Uw8/uz35jyNa3Fiu/sZke9rsa19DczXhqn7TqxJnLpXRi25H2XF
a9fcfLacM5rO7wzINUrRf2fysReP2ypX2TqvlvYhyEi+fvv8OsvT2FdWMULl
aSS3vfOHo7XFY9JTqj1z3WGO9c70NFUM6/qbVu2N1Rv3xeeEU8+demPV3mfU
R+Zpeo6JWGdaqdX+vk+2/EdPPUKU26r1jiQ/2+1tizk/qWNibjzorXmaLXVT
Vmv5rqPqXb+52gD3G+kdT27u+j/nJ7Oq68nWPM1cHdDUPdF1rdXyfW7nfGLP
PCvF58ox3vR4TVO585aq9ndNeou92t99rmLdfFbc361+Gj7GnGPItVv2Sb3X
hTM8zZLrYK6RqTx1j6ep3pMZ5XZt5ebjcrwO8biMz8B6444tniZuc08t55pz
Jo75m+ef6/jm3uMXr43V2KJH52kcDx3haXr70+jn1nuDWp5G6n0GdkZbPCY9
tjzNVBzne2GuyTnT0+TjP9axz/WR7vU08To9dQ/qjVV7n1HPXaPX5gl67yFz
61m1f+zDVN0Dlsaznk98lhjVk++KmvOTvX5zz/401bwrP5LrHqv973oUKcd5
mr4a07L6PErt7mXH6Vr1ylPHzdT+0rpWx0Z1zGy5xyzJYcXl5TxNtf/9HKVn
fIwl52HPmCA919Wl50urrXL7O+fgfbjmWUtebutZha8r9lpVHOT4tfcYubSn
WXod1HmX77GVp8lx5dJ7hK89lZeMtaXO96id87XS4/z2nmM950HPtWuNN+rd
X7HPkuXauridc304ohevtuloT5PXY8s0a+OPuWWuqT2JunRb+J4b3xNyrVLt
2WPL07h+OSs/84q+pqpjvYSn0XLz9SPHcfq5VXuw5Lrb0z+nx9MsuZdNXaOP
GPcsTzNXs5HbvzWOgKfx/XJpvBP7CubPl75fs8en9fjNI8Y9i3JePJ9v8Xua
T9z27OFz++TcmZ+Zzx0LjoPz8eDnl7FPZ/W+AKvHT+a8YF6Gtfe4Z3Oqzpk8
7ln28HPHe28M5v02d1zOXVd7/XpUq61y+2vd4ntRe84hT1edD1N9g107NVV7
5utQPo9auqSnWXsdzPOYy9M45q+kfZVrzeJ3qmu/69taXl1/97HqbezN686d
Bz3XriM9jZU9jdfL18epe7L7b7iPT+saueYdDXiaH+uSbeE8cZzu2nUNeZre
587aH7m23tepKnaMOd+98zRTNZOtetRW//3Yr3mutqK1br7+Z+X+3rlu08t0
W80tv/KHVX1K5ed680Q91/6p7fJ6VO9wy3G+41Q/Z5zbp611q54bTh0jcR5e
555jaqo2IbdPNQ5Zz/W4Zz+5D6yXXcUH2VdV/ffjcRvPZc2zGiuztW6tGkTP
3+uZawri+dRzbPt6Fbc7b1NV97ckNtnL08S43n4hP3et6kum5lmtW+uZblbV
BnEZvdeWufWp2r/X07j+KT/r9zHo495/97GUx2PL9xzHFo4to6/3MT/1Tr29
7kk98+m5Ds6p8jRxTGbJ48ZZrjNwDO78a5yn/xY9Vx4nIHsn12HmvtZq69hf
aou377l2XdrTxHXztdptkLfVsYnHfY7tXx2T2pdat9bfsx6Tp1n7rMrC06zX
q1ev7m5ubs5ejVn5HjIVr7m2N8dpPTXJuc5e81j7DHup1vaTn5tn9dma5yfS
Hs8eoqq+jlKuT7iELtH+a/IxUXu3f8uzu079UmodB1tUxUruX7RWe/Xns1r3
l7Xvx1irPfsqWtWx2pMzndIl2r+39iyOBVB9rnuRxwB0zq/K5bSeo7XOP32+
R03cKFrSX8VyjUDOy8Sxob1f7H2qPGluZ+/zqXFGLhUPHCW1U3zHdOzHpWPW
229Pnp8BVfeG6DF7n6W1tFccbx/s82Uq5vHzjlY/mkxPXcmWvqZxvZZoa1s8
ptozafQ8zWPX3nGF781RrRxNr7bEI5Va5+ClY2pp7/bX/HI929Sz7h7t3f6t
2GluPOYjtKVfSWt+1fi+a5+dVefTFk35uEt7GmlvT5+PVccMPc9qK+XzaauO
8NGS4968nfY1RywT/UiO13L7an84Xn/qivkmKeZdqnNz7/NuTmvi+NY9Nebx
WuectvmIPM0eunRbPDbhac5Xfu/DXnJeuqozOktb+tEcpaPa3zUaI11PRnzm
uLSPRK88Zs1I+fQt/WiOUPVOl73Uqr07U6O1P0IIoX10De+nQQghhBBCCKEp
4WkQQgghhBBC1yw8DUIIIYQQQuhapXHPbm9vz14NhBBCCCGEEFot8jQIIYQQ
QgihaxZ5GoQQQgghhNA1izwNQgghhBBC6JpFngahseX3gq59byFCCD116d1E
l3yPJELo8rqGPE1+z7Xiu8d6bXL8Gsnv5lZsq/fG6V2CnqYl/W3qHXNT7ehl
VO/j07v0lr670e/wXrrvtL2t94b6HdIjaUubt6T9sORdpWqXS7xb0O+Jr6Tl
69htHT9nvAdWx+xTfK+49kFsb++3Ud4Fu7e0j/N1NJ8Pfle6plVb5PtMnG7q
3FO7tr5bSefy0mNQ69k6l5Yst7pma923zntv7d3m/s6S+4+mv1S7TN0zWl7s
rPcnqz30Pt1RnrEt2ac6B6p21mdr3429JqYZUY4rdUxd671B455dg6fJx4zO
/6XXs2uVt13brOuI380tdH6qHUTr+JtqK31f71lv/b3lHXXsaz2mvFRL9idL
vqvzrHV/G+naam1tc+/nXjTPKO0ztZfaRceFlpfjO1Fdi1vTevq83vbglXRt
bMVQS/zZnlJb5fZ6Csrn0NR+e2zy+aBtjtdQHet+JqK/tTz2VFv5/MrPnaa0
5hjcI8egba7iuTUe62htafO4n5eQl+F7rOQ4r3VdjPLzp9Z1tNqu1j3D/qG6
v5/5bDe319FqHf9TsUEl7cfqHFD7ahlrronXHI/qvPfxr3PKx7za6Fo9zfPn
z8u/abvyOa99Xl33/fyjdTz4HPe9ZOn1XMeL2tttvPYY6t0mnyfez9m/79k2
U/K9WHJ8Ki2JR1pt5Wt06z6u5eUYyFJ7+DnoVC5g6rpe/a31rFTrusf1zNvR
cz3WvLXv18S/a9u8+q62O7ex1qk1D02v9Y5/b22vPXGlqZyavuN2mToWW9va
8jqX0FS8oXbbW/k6UV3/1NY6n7R8T5P3uc5HXWPifJbm4bSNPfttj22Kcgya
p+mZzx7bHY/jeDz23kdabeVr+9JrxFJP4/bbEmN4HpW2HkuV/Nxi7v449f21
bZ6/q2Mo1xs4R1fJ177o86b22dR55Ht4te90DXSbtI5F57qrdWx5nUvIzzSr
e/gRz4y8352f6/GoVXvGe16sc2nFJT3Xh1Y80/Ps9uw4O+bv4309btsl7pN7
qpWn8f62tO1+xhyfi/ucdYxbzcfPjKWl+V8rPpPY4mnmtsn+yfPX59q2eF3Z
q23m1LrXbPE0jp/0+dT1MNYuOU7Wtmn/+f7qn1t5kqXPclr7NR4/eR2XHkdz
nsbt43qUPTxNb5tX39Xy8za27mW6R2Y/4+l78y5xuT7mtfxct+Tjr3UsOi6o
dFbdmXTpPE2+tzrWi55O7Refm9hPxzbysehptE+W5ihjfmyrp5nbpigdRy1P
MzefrdsdnwtlbfE0Xte568+SnEHruKziHk+vY2Uu5yC5tiZL7bgmRpnyNH4e
5rbRvvPznF5tbfP83byNrTo8xye5reZyL5XsIzVPxwhR8fibeg7Wqjtbkhvc
W5fO00i51i4/d+1R9Rxva432ljzNSHF2y9PkbTtj3y9Rr6ex1KbxWZ+Psdb0
VVyu35feT2MMV8V02pdz97mebdLP+VrnZyJL5tPTNkvWNXqJtZ5mLvaIy4rz
9z50nBr359RzqK2eJubLchzu+rd8n5m7P895Gm1P9M5bPU1vm8fvxvun6wzj
NmaPYmm/xWcuXoeleRpfD2McGWPsOU/j+CXWsXm/OCZd+jxrL53taSQfu/Hn
fP6oDeO1pLp3x+c8vfJypvpWzGlum/L8XNMx52nyfLZut2PKuAyti9djjaeJ
8XmPL9f0ed8uOQYdt3keuY2r8y9P07qOSM4PLn3WPnVtbB1bWq/eZxlb2rzq
k1ptY7zG5tx4/Nlx5tI8TayXqnI/U57G07seKO+Xan9OPaPaWyPEtTHemovf
fQ1yu8X6F7VxjmmW+Jw9PY11Rpz9WDzNVO1Zyw9W5/aSuL03Jp97rpWvWXPX
4aXblNdl7XyWehrH3dXYCP57vka35GPSz/N6YoFYM+B2rq7JlmPeqkZqiTSf
6Eur48Tbo2tUtS5z51tv7ZmXtcXTLGnz/F2r8h0966/5+DneVJ4mr5tjKMcO
zvU7b5U9dbWPqvPAcXu1zCP7dni9q1jmErFAqwZibh/2XJN6YvvWM/5YyxXb
oefY6t0m72/3oevxNNV8snq2u1UfH88nb/PcMRCPTx8/W/vq99aFZH+x1tPk
fJg+07ld5bx6j72l18Yl+bUtbd66b0T1bGOs2ZjK01S+O+ZRfM10/rWqN+mJ
Hb3Ordzjlth6So77p56rXfK5lJSfu/Vue3U/je0Zc2stVc9Rlz5bjetzVpyd
48js8/35NXka9ae5ubkp/9Zqu1ZfrSVt3VtPX13/Wvup55heuk1W7rdxZNv4
nIrHmttqKo5sKbZL7/3Ez/t9T/Xz0ql+CH7+XsWrUzn7qeeCrXuTa6zW5IYu
6WmkpeMX7OFp1uQFrdx3wT7W93S1/VpPo+9W63Wkp2nloqKOigWkKm53znVK
U30cdNxP5UejWsdftc1LnjX1bFOsm+n1NFNts2S77eXitUfzzp5maZ5mj/FI
ej2NlpXvk3t6mtZ1d29P4/rtJeMQbGnzPTxNlePrlb1ivIa6vbQ//Xxnjadx
Xq1aryOvY3PXhaOu4bl209eTeJ9aWsdZtZHHt+s99ufUG2OMEGdbVT3JtXka
qTdPE+v8qvtJb1vHGqo1atWXrvE0c9vkafIzvKPaJs4vfjfWSkhT1w8/Q1lD
PpfjeRVr2lvqvff0nhNTeRrXdOR1OsPT7Nnm+TjOeQYvq7Uv7C0936lxzKq4
Jo9FEePHaoyKJZ7G88jHSZ7HlvbMGs3TuE2njiuPc9ian2OltdfQVn/xtZ6m
2qZcv9rjaabaZul2t64LPZ4mx1Frj8G1x/GU8v7Z4mncTkflaWI7zvmZvdo8
b59U5Rmm6oF9z4/HzNxzuXw+5bEoYsxS5RZ6PU28D+f9FuexpT2r/XqWp4mK
526+9/dew+M8WjWKMVdR6UhPc1ac7WdFHk9wKv91zZ4mH+va1lbc2tPWceyK
tfL3877qqR9Zuk2tWpkj2qZatqT5xuuetDZPs2ScsBxXbXk+metTl3iafC+K
z6iqZ7ZneJrqe2vaPH93qXwtjH0GpqbtiUnm8iotT1P5MCs/s33seZrIXN13
bx4ijte9VH4nS/7ulJeK6tmmfJ1veZolbeN17N1ut2H0V1vzNN62tf2KnWNu
1fHm5fbEnz2eJtcYRk+T233vPI3jtC1jBCxp8y3XkzhGQM99omea1nHW42la
z5+qWOox5mmipq7lSzxN9Y6yJcfX3p7m7Djb9eZ+H2Hsu3ZtnmZN7VlLc9P7
GdwWP+N7bpXH7mnnJduUx25ZO58103t8j/w8daunkXq8n/uBOG/u88zzq571
T61P3u/5Wu159NTC5O3J74cazdNIS/pr+NmKj5kpYtzrWgbX16z1NLFWMPfz
r46/pXma2CY+h4+8H1Z5rurZ3CVrz1rq9TNx+jXvFfF1LdeN99ZEzW1TNZ+e
PE2verfb51LM7e/haXq9X5ZjDY//sLQfVzXW1dY8jeQ8RmyjI/rTLHnHzpY2
j+NjzZ37eX3isbXF07gvV/Xsvzr+luRprDw+4lGepspzLY0B9pDP3coHVMS2
iHWr7osb133qHW65TeeOqfwMb26bzoyz47hPblvJY2Nco6dZOu5ZS1PT+3n7
Fj8Ta8Cq9x3s6Wk8/9b192hPE/uG+vrqXGJ1Dk7dG6v72Vzc5PO/t2Z3Kiat
xgpdkqeZ8zRSzEuM6Gl62lyqaoLyfbenD6PvfXP3oLn+0a39qmV7ndZ6mng+
X+IZ31nqjdsd4y6pJ1vTbjE2zDUOe3kav2dnrk5orafp3e74zNHPPXWt8HGf
+/ZOvcOxug4tGfvDx3t85pD7Oc/J52pc7h6eRoq1Kkd5mt7jq7WOvW2e69Or
66/WY24sZB+fUzFsfj5XqeU14pg4azyN5+HlHuVpRtGWPE30Mtnr5Lzv0mcN
W3RmnO1tt/+Pnsa6Nk8jvXhR77u92jqPo7RWeYxlX2u8jJ5xJnq3aa4G4mhP
I7lfxNZzqzomvT5r6vGXeho/U+l5B2RWr6cZufbM6mnz6jmsj+04ZkPPWFd5
vasx6dbWns1N0+NppKp/zt7ye+2iD/OzeyuPl7unes5h1ye2lh+fbURVNRRT
cgwd799qdx8bve97WnNdWpOn2WO793h+XB2ffrbQU6+Sz9t4fvTm5uIxEue1
l6fxeub1a2nq2tjyHj3Xrql17G3zKt7QMRPft9XT5lU/naX9N6Uer7HW00hL
x/5aqvz83tcP7Ye4L1p9nffSFk8Tj+1c5xH7j8S4sjUfv0vMuQ0p3l+k1rtS
q206K872u2itlqeZqiMfUUfnaZY+z6oUx5GttOS53dx0Pc9vLpWn8bOFLbFW
PNf1v2M5t+lUXbr+pu84H9+qr5x6nq/j33UuPg729jRRczXbl/Y0S9q89XzI
z1B7Y4J877Mvip/1epqYS/Gz5TzNWk8T57FkfJZexdjFbRD7qcV11O9HvMNu
Lm7vybvl2iDJdSe9MYyPoanjpzcmupSn2brdvu5s6f8ixWPcftg+ea5NqzHw
8/nRGgvf8nJ8jERf4+tZKxcm9XqauH5z7TV1bcz7yHn/JX2W17b51Ds5fP3t
fX6R27F6R06vp/G+iu8/y9Os9TRxHns/l8keOr43JfdD9/3+iPcpx7qx6v7Z
m1vJnsbPEV1fP3etiO+QiDmyPJbUkuePo8TZPXkabdfInubly5ebPM1UXaPb
oacGoSV74ql31Uu97xbq2Sb70Klt2qttKtlv+7ob3x+r7azaQZ+1riN+Duvr
eX63lNo252PtzR33xTq0yrdXz0KdB/V55mW5LsVxcrxP+7M8j7isqXjG78GY
UisGiPn7tcdrbL+lbd56P3AcB8XtvCZPM/Ws2HL7eZ+6T5V+973Mx5/3V3Uu
uI6q99mO1mmNd5xSqw+ttz97nNbYrVtzpXPfbx2P8Zj0dN4n3i9L+kxr2+Z8
Y29ccClPI63d7ji2vI/r6ANay6piQsfXzpX4Oa3kmnPPO7/7u2r36tyL17p4
zObnQZbztr15mtYYAZXytalS6zrp7/m+5c91L1kS665pc8fYrTpa31e9T+bG
maiuWfndMNU0se43v5fB91PL7/+qzr1c1xbHCKg09zxvjarxXOJyoseRWveD
tblS7Wt7DXvCGA/FY8ptGZ/BZbVyPfbhbvNWrWD2w5rex1Hu8+VzespnjhBn
x/XNbZbH4/I1Z2S1xj07Wz5+Wvk0HUceT2tJTnt06fzN90B7G8fI+Zidus97
eh2r1bnldwf4/j+nVp6mquXJ8/N2+D0lvubnbWnNd2r5QttxxLP2pVrT5nFM
VV+7tS32P55PjBXsNfL5MVWj4Ot+a2w0X/Pn7vd+XlMde9Vz3nxtjR72iPO3
6o8cawX8e1T1DHUqBh5d8ThrxULePvvmxyAfU/m8cF+W6rrj8QIrxTFTWsdC
vF95nNlWLc7U+emxYaa2I69blcvOv8frUOWDnJPP/c7P0po2l7ze2h7Nw7mV
eJ2K58XUc6JWPBjbqprG1++e64bHwauOvexRquPG13N73z3l4yTfw+I9WcuP
9wp7kPydNWOZxO/muNr+odV3L/u/PI6sa8fi8ZGfv8Ztj/3hoqKnruL96v48
qtaOfTKabm9vz16FUq5zanncGFPF+wD6seJYWD3TjqZco9qSr0n52neG9mhz
5zk89kglt011r5iqUYixwh7vD2wtY+5+7vN3bX3fpXTt15a5PjKOqY6qxX8M
iuNozannWPHYBZdSzh9VspeJ/avO1NY2jzV/reM6xrXVNk8943a+56hrl/Pz
c3JMvjQPdknlfhtnyPnw/O4V53uy8vMFdB2aqj1DCCGEEEIIoWvQqLVnCCGE
EEIIIdQj8jQIIYQQQgiha5Vqz8jTIIQQQgghhK5Z5GkQQgghhBBC16pXr17d
3dzcnL0aCCGEEEIIIbRa5GkQQgghhBBC1yw8DUIIIYQQQuhaxftp0Ijy+9J4
ByBCCCGEEOrRUk+jd6tW7y5/zNI2V+/i1nto/a73uffN6l26mtbvrr02ab1b
7ymeey+222iJ/F7rte+61zuDl35XPmrqnest6Tt77lO1lfyc2nWNt2u9E17t
qc972kX7Wtu1tk3Okvb7mnc/q020rUuPGe2j1r7X/Hrfha73W29tZ213PEe1
r7UOvAsbIYTQU9BST6N7uHgqUjygWLCK5x07OvasptFn+ptiFk2n6R1v+nua
j9ByRow/tJ5T8dbUMaFtVZzZ+r6+p78vQW01J023RN5Pa6X9uyWvpPbx9uk4
EG73JXH2VBzrNvHxVk1jH6M4XT9rfj6u/T2zpb2O0tL9bvn8y9sopnxJ69jX
Pus9Vr3ecX/4u1Wbt9ZHzwHiPtG+610+QgghdM3SuGe3t7eLvpPj8Ihigrnv
5vhUsWD2Ar43O75TfBXv9/pZ93X9TdNo2qN8VsxBKE6J6xGfhzsWzPHnVFyR
46HeeEzTTcXPc+23RK4Dm1IrrnObaH16v6vtyv5Hv0/No9LS2Fb7eMsx5Of8
WxT3aT5mqvOuyuHoc7dVPq9im2h7q/Wd8qfxeO+Nl+1p5+S8XO8+0HTVNajl
Babma/+W5eN36txptZfzN3F/tNRzjkk+r6fWJ27rXp7GbRjVehYRj0fnpZ3P
RgghhI7UJfM0jkMs3Zv1Wawx0j3RNTKSPldsIO9jKR7T7/E7R9TIOE51DOG4
0r/nGp8q1piKK3JN2x6epqf9lkjrN9eu1THheLBVr9b6rtY7r+tcXOhYtodK
zsW1prc/jFTnQOXP16qKIfMy8/GnNorf08+xLfP2V8fr1PkdPftenkbroONT
rHk2kZ8h5GXN+QkvO0v7car20c9V7IXj9SjWsc3NR6qO+Wp58byempf90R6e
Ruex81dRc88AtN0xn6Sf9zo3EEIIoUpr8jR7eRpLMYXnqZ9zbYXu5zFWqWrm
HVfsqVjjrpgk16D5maiX7efoUfYY1bP1HPPH2rOpGGjK0/S03xJpnedqn+Ix
oWmnapta33UbqU1yPkJ/82dVLrBavyXbG+OzHu8wlZfaK1+41NP4Wb/bonqm
7xpAn4eVh6jqIT3/2PaxVm+qP9mcp4meeS6fUs0712vGZTm+n6oJjcdW65ir
cg32C94v8RqWn6+0crjO48RjvlWv5trVHsVnMFWdWm+NpI8pzSOv09xzBjwN
QgihS2suT+PnpzEm76mBqdTyND0+aS5Gneqru0a6/8Y6Fsd/jtFizOPPq9i6
9azUcU6U7vvOA0zFC3O1Z63vrNFcPaHk/Wfft2Q/VHmaOU/Ro97t9XPoGAeu
9TQ6ZtY+F881U9EHOy80tV7xebq/77Z0fab3jfvJLMnTVPmMmL9a62ny9iz1
hK5vsuKy5q5L7qvU4x/zZ/quvbCwR2rlfbx/4nmt7zhHE/dj9iH2mS3N9UnL
1+/e/aH10vpW1+2ec5LaM4QQQpfUXJ7G8fqUemPOlqeZG/Mn931t/X3v54Cx
70B8Ju3l9HixytO4HmXt+i71NHPt11IV71XKeZolGsHTxDhzi6eR9ug3X/V1
6cnTxOMy9gHzPulpx6k6wjV9so72NJK2VdsYz7WcJ5hbblSPp3E/sejn7R9a
7eRxIPJ6xX3ds+ys1jlX7e/eejRtm/PeLU/j49TbvbTPG0IIIbSn5vI0R3qa
2J+mFQdMvavEz7C3+IM55ZqeqBhruG977m/cqj1rjbPQM57sEk+z5V0vrfhn
7rnwkjHLquffVe1ZFS85Xl7KVHxYHe9LPM3afJiVa6Km/HN13k2N3+bpPVa0
2jr3Aapqz+aO1ykd4Wmq9fC6tMYum+qrk7/TykXH7+f9ou30WBzVOvgczOe2
5hNrZqt9uqbeN9cKWj2exteMmLusPI22t9UPEiGEELqkNO7ZpT1NNe7ZVD/c
nr7/jrmOeE6Yc0jx3SGO+RzD2M/E7ZmKIVzbYcWa/Cn1epre9mup95lujLnc
d6f3mf6W/lmV3D/bz47n/KF98ZQHu6Sncezreh3vvx5P4/0dPYq23/mE3H/E
Y1TEfTW1bfnZQ49XvkSextL5o2Utfb6xJk8z93mv8jMQt3F+DpLrx+aW6ecr
+fjPtXqV8tglrfx6lqbbu08jQggh1CN5mufPn09Ok/vTVPQ+n+u9N0qOTXvj
8a3vF8lSXKH7s/sgxO107JXjg6pufMoXxHXOY6xNqcfTLG2/1vot9TRSrzeT
7OumcgGO43piVXtQ90la2r+lWs4ST9PT/6ilOL5DrKGyh57yND6W/C4kt5lz
MY5xo/esPMnUtsW+Hp7vnC7laewD5vqeZK3tT9P6fOo6WdXC2beqnVo1omt8
k/d9zmHPzau6XvVet3kfDkIIoTO1dCznLeq9Nzo+WRqPb31GnuUY0DH31DJb
fQ58n1fs5Lgyj0vtOKy3bmPO06xtv0pLxgjIy+/xINlDaD65j3VvH+MYZ3u/
LHk/e6wTbL2HyOu49xgBfnYQlxk152k8ZrfzqlXbx5hT7VL1ZY993t2euR/J
kv41l/I0Ws/oB3vHqci1ob21Z1blaapzc8pLRD9aHatLPU181pJre+fmpXac
yltOXXfwNAghhM7UnKfxGJyOcSS/m8HqzTH0epqp/ELsrx+1th/8VjkOq2J4
rZPrYTwmqj6L7bT0fePSXGyx57t6euq3qjjJseLUdz1OWrVMr39rHKmsHGc7
jl5Sf+fp8rx6PU01ZlWPtJxcs1h5mqqf0ZqxEzyvfL46FvbxWNWdOgfWG2Nf
wtPYD3p7vM97jhvtrzzd1jzNUk8juV23ehr7o3wsuca19X7RKeXrduu89ft6
etfTeck9a08RQgg9XU3VnsXYzvcxxw35+a1+n6tF6fE0PTXZjle8Lr6PH3lv
tD/J6+/xl6vn4t6W1jbHd4V63j25jSlPs3dN+9J3buo48fJd+9Ja11Y845i0
Ny6tamxiHO35ab1avjvnz+KxX/W5qdb70u/cbOX27JEqj+B2rdrBx+pU7Vkc
4yKegy0d6WlcH1ptTzyGWsdf6z2Wl/Y0urb4+K38d6+n8XiKU+drb9/HvPzW
GAFu99Y7eFqK3kfbz7trEEIIbZH609zc3JR/8/01v2Myv4MyPhude27c42mm
+mzHOptYI9HyM1tqWbTdXl8/t47P0uOYbTEOyfX5uR7DNWhVHxHH5ooVptqx
1T697bdEzsFNyTGXn//HNvdx5GfFMQZqjXfnv8V6nGo6HwdVH5gcR/t99e5z
EefhfVHVDUo9eZqedlqifJ7EMZnj+nmd1bYeW1fb6Jq7+A5Xt1X0f/k9oXnb
nJ/NntC5Ws3LYylXao1N5+2bOl5b8jjN3s6pMRP9zCEfl/Y81fUo+nj3Z2rl
N7Z6muzHnb/o+W6U86JzeZI1YyBW1237yXgNXuJL8DQIIYT2VitPU/VDyP1K
8jhjPc/0LynFWWs9TexjH2Mmxzeuwdd0fj6qZeV3bmdPM1cL5X4RI93jPR5C
S44bW2PYRf8X47UYxzlX5TjVf3P7OW6KY8X5fYVVTNuKifXduC2tfiVROQ6s
jvP43sSt8vtelyiOBVB97veiOIfj5/nZ9+f42e3f2rY4hvGlZJ/cO85hdU55
u+bW27WjrWO78jTVWBfVc5cqvxildfQx3rqOedum6gH9jlWfgyOI2jOEEEJ7
a27cs2uW7+V7yjFc670gR74r5yy5/qr1LL63Rn/qXfPub9RaRhxjoae+Zcl4
0lvlusQR5T4+1Zi+zoVd0o88NmVP08qDVGNfSFNt71zUnGecO/88nzV1Zwgh
hNA1aKr2DCGEEEIIIYRGV887NxFCCCGEEEJoZL14QS0CQgghhBBC6HpFngYh
hBBCCCF0rXr58iWeBiGEEEIIIXTVeszjniGEEEIIIYQev25vb89eBYQQQggh
hBBaJWrPEEIIIYQQQtcuas8QQgghhBBC16xryNP4PfPWe+9968P3Ykc0jf5H
26T21XvJ9X7yN974+Nmrc1HpuNL2X1p613t+z7z3QdTU++R9/E8R33mfpX09
931x9DHx9tufv19Gta3axjP2zxppPa9pfRF6ympdHx1/TF17s3Td1vV7i3Lc
0yOuOegpS7Vn15Cn0bmdvcprr73WNZ0VPc8UmkbzeWrSdqtNheJ6xZS6vj+l
tlAs3XsPUdu4vZaSj9H33//Bh14q3je1DN9jNc2cn6jOibzOU55G85/b39U5
5ntvjx/KaLuz5O9Eteyl9/g1WrIvp9qz8qQIoTHVuv5NxRUt6dzX9WGLt1i7
XK456CnrWvI0Wz3NmVIcpni5JV2H9o7V/Lymtz0UMwup8jJVXqw1757tmWuT
JZIP0HVc66jjomfeVQyuz1rb6b9PxbAtzR2X8ilqM21HfMamZWm7hD73NC2d
5WmmpHVeek62njO2vM5ZmmvPPZ+PqA2jl9JxquOiOh507Ovva47VHmVfV50X
a87Jo9ZF1zWdY3GavddF+7lal6nl+Dt7PzfyfOd09HFSrVPe1nxcG8v7zs9z
fI86Qnt6GmnNtW/rcp/qM1mEpFevXt3d3NycvRpNOb7Msabk593XUHumOGzq
+bpj2r1kT6GYYk17VJ4m3yOnrreKZ6aeUbl2cC9pPWJ853v1kmdk+q6+c8Q9
c6qttK/isRH9oPaDvUyPqnNiiSfryWUuPceW3mPt61rzukRNhda3ZzlTnqaK
cb1/fH5kptop18U41ottZR9hD3ykp4nr6vxZ9Jt7nJN7rYvbwuviZ+h7nuuV
j9BytM2Vr/FxfoanudRxEpfX2ta560OsQdX/e9e9xnpb7aueZ115Haauma2/
VW2+Ns9v7X3NQegaRZ6mT7oXr80l696p71bPVP23ve6vagPfz3XdPMPTSLpf
tp6p+366h1ptq2UvuVdX/Vl6VeV24n2v1Vb2L46NjZ+dVjGzfm8dg5fI01ju
cxWV++M4jumt8dQ+yPGDva/j0N5c4RZpnj3P8afaM25f1a55X821fSsOistR
G3mftKbfQ1Us5PMw/rz1nNxjXVr1imqfPZ8jtXxE61m92sHH9KU9zaWOE2tq
W1v3RetoTxO1Nk/TkxOLal03cgywNJ7Z+5qD0DXqGj2N/UXPM2TH9UvJeQRd
T+OzvqVqPW/Pz+n9mePB6nt+zjZX49DraZwPiO3o3x1zL/U0U31T8vPaXBtS
1Rh4fnN1N3Gbeu/VjgFaz9TmckpzbdNqK22TtsPrqt81rf53rBF9oXNJR3ka
tXtvTY7WK29TvEfq/7is3AbV/bRaP8c81Xlw1DOM3nt9qz1zfvRIT9P63qU9
jT+f0pJz8uh1uZSnqY5R1wV7Pc+qPZOO9jRz2zq3npeuPWvlaXo9jaabe+7Z
ex4sub4dcc1B6Np0Le+n8bmte9Ce17Qj7rEtVd5FyrGa/Yyvi74nxGlyXYfv
YTnGX5OncX/1HNsu9TTetnx9z14nxqv6WeT+OFqW1snXXz+vm+pb0Vsz7zq4
qXvr3H13raeRKs/tbfd2x1qBqW3eWnvm+qB4X2/VP1T79ihPU/mnap57aWq7
M1U/En0Wr1NHepqWx720p+mpJz2iH8vSdYnXl7XPpypN5WmqWiXvs8fuaea2
1eeQr3M9nuAorc3TxO+02t3HnaTt64ljeq9vR11zELpGXYOniXUnUk/Nf+tc
bY0rdbRczxqvO/YPUdW6Rx/g+3XP/XiNp3GNfu47usbTVPVceYzLVm1G9HEe
g61XvX0zXe/u46uloz1NFcd7/fZ8ltwrLXNJTqD6ex4LLT/rXOJpJB3vW2sz
erX3vb5ax62eJj6/7pl+T7X6sMyNAXfEvlqyLtGP7+lnvNxWf5q4fvncesye
pmdb9Vkc+8Rttvf+6dFaTxOV291exs+KqvmvHUNz7noxt254GvQYNbKncQ2O
6+tb6r1+xzFzpWqs3COvpXksAI9rFdevtS0xzu29vi71NLHmyT+7TdZ4mvy8
tOqH79qrat39+ZJ+5j3PYL2v7WekqRzH0Z4me3TPL9eeqT2r/NmUv2+RY628
Tnt4mjV5mlZbSLkf1qiepie3s8bTxHlo/+nYaB3nR3uanLOb8t5H5EXWrktc
nyPGCMjrEveplpfb4bF6mi3b6pqMS2tt7VmU6yU8prLrpJfu45gz7xkT9Yhr
DkLXJo17dnt7e/ZqNKXz2v3Vc4wYr5e91+/cbz3Hbh4H5ihfk+uu8j2vNW6J
cY75CE/jGjfdi+IYATHmj+qNJ2O9SeXHpup8vK9674VLYietU6xx2JqnmboH
rs3T+G/aJ/H+2Ht89t6zqvWv7u25Li3nGI+qPYvyeH7VPPfSnvf6Khcr7VV7
ttf0S7QkDj/Szyxdl6i93+PR4yNa9UCP0dNs2dZL1k9E7ZWn0bS6d63dr7Ee
2/Na0h57XXMQukaNnKex5p57x5is9Uw/+yCpunYe7Wucp4h9J62pPI11RJ7G
+RR7jz3GPYvr69ihGrO6laeJ6snT+Bn/2v22xdPMaUuexv5i7t00Uq7rW3vP
0j20ek56Zu2Z5fu9vnsNnsZ9BXI/qKfgabaek3uuS9bex86cj/C4Ni0uuS5R
RxwnW7f12j3NVvk+6eXm95bNaa9rDkLXqJHzNFa+puRnf3PXEcfsPTGUVOV7
t457ZjnubL0/cC5+b/WnqT5b4mlyTVzladbk4/3MyPVreR17PFrVnybuO+e/
tuybLbVnc9qSp+l9llz116pqKXreC9S6112i9mzO00hxbIzcrh4T0G235phY
eq9vxRo+9p1ni/vyTE+zZHy7Sj0+ovecPHpdWudQ7uun9VSbre2fvsRHRFXr
f8l1OfI4ycrbOjVuzhHvZ83K47P0vp9mqs3m2l3XgqlzIl4n4vXNz0Dnjomt
1xzXO+t7Z43VgNAWXVueJj6n9TU3x3I6F30+tsaBlVqeJo5REuep5Ww9z31t
atVz26/5WmMvFa9NagvHa47hqph5zRgB/t5cnsb9bXqk/SSq2ML7J/pF72+3
tX6PnjT+Pje+ca/OzNPM1Z5lVbG666VjLLDmOdzUmFGjeJo4z/xcII6NWJ3H
PVrSbo4f8/6orjsxxqieX1/K01RjKS7R3LouOSePXhfHeHH+7quQv5fHnFyi
PT3NJdflyOMkK2+rjxPP3/e6nv4jR0nHRh7DRudsb9+rLXUWuUYkXzN9bW7t
r63XnOrZJkLXppHzNDpHHRs5B6vzM8Ztftbjd5eYeG7meEPXJ823p+7pCM31
+/N1XdtR9aHwWMbe1vhesqkxVHrjtMrT5N9dP9cjjyvWevam+cTtqZ7Ttd7Z
M9UHaYmf29vTaH/4fTMtzynFON5jAERPk2P26r0/MTaIbbfU00R/WanH08T3
GuXas/wuzaVjBGRV47Pt5WnmcrJahvdF3keuu8seXvOL49rmZW71NG6viqyp
Zz1zmruWLD0nj1wXr0+8P0zlARw3LvUSe3uaPdal1faXOk6yqm21b6ruZWvn
uUZaps7j7H/ts3wfnvM2U/vLx2H1ni1f9+K2V8/CPPZCPob3uObgadBj0Oh5
mnj+umZrq1yns/Y52GPX0rGTH4Oq+7mu99FjLJXv1VN1JNHT2PvFsfiyV8/v
DnLM4fPCMYJ9fnW/97OC+H7ueN9uaUmeZk5a39wmHm8vKre9170VH+xRe6b1
mor7fO3QNHn53mdTMWA1jmDVHkdLy9vjerqHRlqXs8ZQrzTCuoy0b7Lc72St
PCbO3Pgr9jzx+txan3zNjp6y+m4rrpnL7/t6sec1h9ozdM3SuGejexqEjlZr
bAbnF86OKabUGr/JNQ5TcXl85tjjY4++zzmvNSXfm4/sA48Qug5NjWfeI18n
e31RrGs/Wn5ugxDqkzzN8+fPz14NhBBCCCGEEFot8jQIIYQQQgihaxaeBiGE
EEIIIXTNovYMIYQQQgghdK1Sf5qbm5uzVwMhhBBCCCGEVos8DULoWrTHuygQ
Qggh9PiEp0EIXYvwNAghhBDKovYMIXRNwtMghBBCKIt3biI0lvQOOb17spLf
wbblHXPXLjwNQgghhCq9eHGdMYLeIa53n0t6F/AZ73pX/Fm9w/2apHbUdmQp
dlT7romf9Z73JbFnax2OkPxC3GdatnyC3iW9hI9+9CNdy1Nb6L3Takct9/33
fzA5veY95Wn09zXScvXd3ndgq13WHNuav5ZzlO/C0yCEEEKo0rXmaRRzCUnx
muLStTH4HutwrVK7VTH0kphWfjLGyorjo6bidC8rtqOmn/IZa6VjoyfPkdcn
b88Sxe+qneSFclsoTren0/bpd7W9po/toJ/1/fh77/Gn+fkZwJzUPlpOfk7Q
2if5ONH3jjov8DQIIYQQynr58uWj8DTWpXM1U8/4557j67uKdyOKOfNzdMW/
Wob+rnkqfswxuWPfqWkqOXat1PI6rWlj28c4XsvQ71PrcylvKN/QOkayd4i/
a/3jvl2SU8p+SPs372PvB+c4FLfr99xmU3ma6njyemu++jkfq6021/blbY5e
Iv7eWqejauTwNAghhBCqdHt7e/YqTKr1rD7HnWvqgrZqSyyu78VYUPGfPtO6
uz7Jsa3jOH2en7fb88RpqmfnlXIdlqV59LZhNW2M47WMudzKpTyN2qmluM5T
eZpqXd3PpToWszdo5Vh8PHjfeb9E31zlabKyT3VuKno5/dw6PpxLsu9yvii3
o49R7d9q3x1VD4qnQQghhFClx9CfpkdVLc0e67CXp7EUQ3qe+jnnBJz3sKq6
LnuhKbV8oZcbY+epOifniOIz+bh+rZqn6APiekz5ji1yPVdLWzzNlNyfZk5q
P/s/zb/6Tk9/muhT7WfyPo4+K+4b+5m4Lzyt90scp8B9hKr2sLfeW3gahBBC
CGWp9uwa3k/j+CnKOY08Xcu35D4fa6T4bapGyZ/1xF0tT9MTM8/173DcOaVc
T+R42XVKuS97a728/TE2juvnWrgpP7GkX8haaf5TnnYPT1P1/9d383L1e5w2
5mLsKaKvaPWnqY43feZ5+3iNx0LVdymul/D2xmntzZw3tLeOOZusI/KleBqE
EEIIVRq99kxybBZ9jfsPOEfhOH4qxtoqLXMupspeYWpelaeRN5iKvV1r1pLi
zlxr1LOe9jQtf9Hqv+Rt0Ho7p+SYONY4tfqhxNjY9Xdz45Atyc9ZWo+p/RJz
F1P9afR5tR065ir/4m3ztuq7ivVbuY14TC+V83PRC0nxOJvyNHGd87TeNtei
OT83peiv9hKeBiGEEEKVriVPk31N7H+gOHFJn/a1OtLTxP40rb7VriWq5h/7
iPfU2LU8jZczl6fJ6+J+HI7L/Xv+e5WzcNwf+3G0lrtWvfslbtvSWkV7ijxe
gpZtDzA1foPbIrbblMeL+SPnULwP4/6c64eWFevNPK2XZU/TUwe3pM17hadB
CCGEUJZqz64hT2M5nnIuwr7gUu822dvTVOOetZ5r98bZ+n7MmUytZ65rip4m
Lyt7Cy0j15M5VnftWtWXPm+f43zXhuU4+WhP0+q/n2u8qmmq+fnY9Lr7XT1x
7IeW7CHcr8VjIre2P48THdsvexprS57GvjS3UStfg6dBCCGE0KV0DXkaSzGV
Y0Z7Gj+fvsR7aXJ/mor4jH1KrdqzSn7/zpK8wVwMPZWn8TJjzqGKrVtt3vs+
F81b3ii/a8jrp33rv9mrrZW+27NfYh94y7mn3joq5xVjfsPb2ZL9iPeLx3zu
zdNYR3qaOB5Ab55max+2LDwNQgghhLJevXp1Ve+ncf1OjHUlx32XfN/mVvV6
mlbN1pzmnpHPeRop+sXK07Ti7db4xbl2zf4vzzvmG+LfevJPLc2NEeB1ct4o
xuJLxjDwPHLfoqn9GNsi75fePI1VeZq5cS2q+VZ4XfP8W2KMAIQQQghdSteQ
p2n1p4mxnv/eepa+x7hnilP9/Nyxqft9W86p9LyrvsfTzOVnqvyB+91vydPE
eXl998zTxNq0OO/cT2fqb0vUehdPXif3g18zvnSrP41lj5j3p77nHNRWT5PH
CMhjf28dI6BVn5fb1udBS5qvzpvsH+eEp0EIIYRQpdH707gWKPetrmI9v1el
8gBb308T38PiuiyvT64r0u9zdVI9nqbnHTweH8H+xe/lXNp/e+65u9aldwyG
3tqzOO/4Tp64zXk/z437NqUl3/Nxp/3svk6t4yeOZ5Zj7twWsS9/5TkrT7Ok
9syfeX/mPkpznkbrV+XI8rLmjpepd27GZwJeTq/wNAghhBDKuoYxAlrvNmk9
v3YMuGcdv/vwxHk6XpSyx8ljflXq8TSOWyvieGKOpz1m1tTYWnHerTECKs2N
hRy11tNUfVmq/aztXVNn6DEmsrRfteyco4l9fHxcuX3z91vHXNUWnr6qo9uS
p3GNYNTcWA95n8fxt7d4mqmcKZ4GIYQQQntrdE+T5fiz9f7yI1Q9o1e+IMZX
OYcx9Zx6BLkuyapiVMWk+lzblsdZnhonodWfxmMoZFVxu5at5e25n127lv2Q
xxlzn5+puLmnhk3z1zzEUn/X42nULt4nU6rydT5/7OHy36NXl3wMLPE0Hq9t
StSeIYQQQmhPvXhxXTFCfJ/J3mMqPSXld9lXctys2PXId/+0PI290Z77Wdt9
ibG/ndNZuqzc1o79o+zBpnyDc0FVPst5xJzDqb7jYyAvS59Xnkb7LfvlPYWn
QQghhFCWxj179913z14NhBDqEp4GIYQQQpWurfYMIfR0hadBCCGEUKWvfOUr
Z68CQgh1CU+DEEIIoUpf/vKXz14FhBDqEp4GIYQQQpXI0yCEEEIIIYSuWeRp
EEIIIYQQQtcqjXtGngYhhBBCCCF0rfq3f/u3u69//etnrwZCCCGEEEIIrdI/
/uM/3n3zm988ezUQQgghhBBCaLFevnx597d/+7d33/ve985eFYQQQgghhBCa
lTyMpX403/nOd+49zT/8wz/c/+7P8/T5s/h5/Fuch6ap5hl/rpbB8lk+y2f5
LJ/ls3yWz/JZPstn+VPL//d///e7f/qnf7r7xje+cV9z9oMf/OC+/uwv/+Iv
7774xS/e/fkX//zu7T99++6dt9+5+5M/+ZO7L3zhC3d/9Ed/dPfHf/zH9/+b
P/iDP7j7/d///fv/f/d3f/fud37nd+5++7d/+/5n/e/ff/M3f/PB/7/xG79x
/79//q3f+q37v/nnX//1X//w7/r9137t1z6c1mgaT6e/G//N033uc5+7/93z
8HT+vr+jv8X5+fv6XfOIy2T5LJ/ls3yWz/JZ/rblf+Yzn7377Fufu3vrc792
95nPvvWj/z/47K0PPvvsZz/34e+aRn8X/vmzYXrjv91//wM+/ZnP3E+nv33u
c7/+4+n+/3mx/Ke1/M++9dbdz//8z9/94i/+4t0v/dIv3fPLv/zLd7/6q796
9yu/8isfTPeZu09/+tP3/3/2s1qPt+5/1nGs49bHs3/38e5jOp43MZbVZ45x
/Xf/7PjXMbI/8++eR4yX/bun97Jj3Ny7fH0u8nrkuDx+Zhzn+3P9LuQDfu/3
fu/+M/2v3//wD//w3jMI/SzkJT7/+c/few39/6d/+qf3P7/99tv3yJO88847
P/Imf/7n9/z1X//1PTc3N3e3t7f34zZrTADlaP7+7//+3t/88z//891/+/Z/
u/v2t799n7eR1/nmN75599WvfvXub/7mb+7/19hoQt9/99137168eHH3pS99
6R7NV/h3LUv/e9nir/7qr+7+4i/+4u4v//Iv7382Wld9pnXV3/W/1z/+TT/r
7/7fn/n3PA//X81Xv/s7cb5xniyf5bN8ls/yWT7LP275X/jCB7HLO3/2QSzz
zo/+f/uduy/86dsf/v/On33xg9jmR39/550v/uizD/7/cDp9/sE0Qp/pb5pe
87r/P/ysaTWNftd0f/bBd1j+01u+fIxibD+P1/N6/az/hWJrPctXbK14WrG1
42r97+M6Hv+KcfWzYlrHuPo//uxj3rGvvqP5xNg4nhuer3/2dJ6fzyXH2HFZ
ey7f3/cy4mf6P8f9GXmD58+f3yPfYA9hP2F/8bWvfe0e+RPlXIQ8ybe+9a17
5FnEd7/73Q/5/ve/f+9jVGsm5Gfef//9e0/z/wFdiTWt
    "], {{0, 407}, {821, 0}}, {0,
     255},
    ColorFunction->RGBColor],
   BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
   Selectable->False],
  DefaultBaseStyle->"ImageGraphics",
  ImageSize->{653.33671875, Automatic},
  ImageSizeRaw->{821, 407},
  PlotRange->{{0, 821}, {0, 407}}]], "Input",ExpressionUUID->"56514a84-a6f4-\
4544-a5a6-4761b2a32183"]
}, Open  ]],

Cell[CellGroupData[{

Cell["P23\:7b26\:53f7\:8868\:8fbe\:5f0f", "Section",
 CellChangeTimes->{{3.784858888121283*^9, 3.784858898786018*^9}, {
  3.7849788630798798`*^9, 
  3.784978882252966*^9}},ExpressionUUID->"bb979de0-5c40-487f-b14b-\
285bf4fd4160"],

Cell[TextData[{
 "\:4e3a\:4e86\:7b80\:5316\:53d8\:91cf\:8fc7\:591a\:5f15\:8d77\:7684\:9ebb\
\:70e6\:ff0c\:4e0d\:59a8\:4ee5P2P1\:4e3a\:7a7a\:95f4x\:8f74\:7a7a\:95f4\:5efa\
\:7acb\:76f4\:89d2\:5750\:6807\:7cfb\:ff0c\:4e0b\:56fe\:8868\:683c\:4e3a\:57fa\
\:7840\:70b9\:7684\:5750\:6807\:ff0c\:8bf4\:660e\:4e00\:4e0b l>0 ,l1>0 \
,\:4ee4r1=",
 Cell[BoxData[
  RowBox[{"(", 
   FormBox[
    SqrtBox[
     RowBox[{
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"x3", "-", "x4"}], ")"}], "2"], "+", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"y3", "-", "y4"}], ")"}], "2"], "+", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"z3", "-", "z4"}], ")"}], "2"]}]],
    TraditionalForm], ")"}]],
  CellChangeTimes->{{3.7849805674557123`*^9, 3.784980567690207*^9}, {
   3.785013111435896*^9, 3.785013137694963*^9}},ExpressionUUID->
  "29d317b3-d050-4b43-b83e-1b190e3ae5e8"]
}], "Text",
 CellChangeTimes->{{3.7849789031673193`*^9, 3.7849790298224916`*^9}, {
   3.7849790812858047`*^9, 3.784979147133239*^9}, {3.7850130632760468`*^9, 
   3.785013096259522*^9}, {3.785013145891704*^9, 3.785013146535778*^9}, 
   3.785370622892808*^9},ExpressionUUID->"20203296-b9c5-489d-927c-\
ac2c46875810"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Dataset", "[", 
  RowBox[{"<|", 
   RowBox[{
    RowBox[{"\"\<P2\>\"", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], ",", 
    RowBox[{"\"\<P1\>\"", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"l", ",", "0", ",", "0"}], "}"}]}], ",", 
    RowBox[{"\"\<P12\>\"", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"l", "+", "l1"}], ",", "0", ",", "0"}], "}"}]}], ",", 
    RowBox[{"\"\<P3\>\"", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"x3", ",", "y3", ",", "z3"}], "}"}]}], ",", 
    RowBox[{"\"\<P4\>\"", "\[Rule]", 
     RowBox[{"{", "\"\<x4,y4,z4\>\"", "}"}]}]}], "|>"}], "]"}]], "Input",
 CellLabel->
  "In[346]:=",ExpressionUUID->"0115fed0-9547-4c74-a0fb-c74fe0045645"],

Cell[BoxData[
 TemplateBox[{TagBox[
    DynamicModuleBox[{
     TypeSystem`NestedGrid`PackagePrivate`$state$$ = 
      Data`UnorderedAssociation[
       "RowCount" -> 20, "Length" -> 5, "InitialType" -> 
        TypeSystem`Struct[{"P2", "P1", "P12", "P3", "P4"}, {
           TypeSystem`Vector[
            TypeSystem`Atom[Integer], 3], 
           TypeSystem`Tuple[{TypeSystem`AnyType, 
             TypeSystem`Atom[Integer], 
             TypeSystem`Atom[Integer]}], 
           TypeSystem`Tuple[{TypeSystem`AnyType, 
             TypeSystem`Atom[Integer], 
             TypeSystem`Atom[Integer]}], 
           TypeSystem`Vector[TypeSystem`AnyType, 3], 
           TypeSystem`Vector[
            TypeSystem`Atom[String], 1]}], "Shape" -> 
        TypeSystem`PackageScope`DocumentShape[
          
          Association[{"P2"} -> TypeSystem`PackageScope`UnknownShape, {"P1"} -> 
           TypeSystem`PackageScope`ElidedShape[1], {"P12"} -> 
           TypeSystem`PackageScope`ElidedShape[1], {"P3"} -> 
           TypeSystem`PackageScope`UnknownShape, {"P4"} -> 
           TypeSystem`PackageScope`UnknownShape], 1], "InitialData" -> 
        TypeSystem`PackageScope`CacheHandle[771748997], "Type" -> 
        TypeSystem`Struct[{"P2", "P1", "P12", "P3", "P4"}, {
           TypeSystem`Vector[
            TypeSystem`Atom[Integer], 3], 
           TypeSystem`Tuple[{TypeSystem`AnyType, 
             TypeSystem`Atom[Integer], 
             TypeSystem`Atom[Integer]}], 
           TypeSystem`Tuple[{TypeSystem`AnyType, 
             TypeSystem`Atom[Integer], 
             TypeSystem`Atom[Integer]}], 
           TypeSystem`Vector[TypeSystem`AnyType, 3], 
           TypeSystem`Vector[
            TypeSystem`Atom[String], 1]}], "HandleQ" -> True, "RowTarget" -> 
        20, "Data" -> TypeSystem`PackageScope`CacheHandle[771748997]], 
      TypeSystem`NestedGrid`PackagePrivate`$path$$ = {}, 
      TypeSystem`NestedGrid`PackagePrivate`$pos$$ = 1, 
      TypeSystem`NestedGrid`PackagePrivate`$grid$$ = 
      DynamicModule[{
        TypeSystem`NestedGrid`PackagePrivate`renderedGrid = Deploy[
           Style[
            Grid[{{
               Item[
                Annotation[
                 EventHandler[
                  MouseAppearance[
                   Mouseover[
                    Pane[
                    RawBoxes[
                    StyleBox["\"P2\"", FontColor -> GrayLevel[0.4]]], {{
                    20, Full}, 15}], 
                    Style[
                    Pane[
                    RawBoxes[
                    StyleBox[
                    "\"P2\"", FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], {{20, Full}, 15}], FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                   TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$pos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 469846390][{
                    
                    Key["P2"]}]], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[469846390][
                 
                  GeneralUtilities`Slice[
                   Key["P2"]]], "Mouse"], Background -> GrayLevel[0.95], 
                Alignment -> {Left, Baseline}], 
               Item[
                Annotation[
                 EventHandler[
                  MouseAppearance[
                   Mouseover[
                    Style[{0, 0, 0}, ShowStringCharacters -> False], 
                    Style[
                    Style[{0, 0, 0}, ShowStringCharacters -> False], 
                    FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                   TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$pos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 469846390][{
                    
                    Key["P2"]}]], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[469846390][
                 
                  GeneralUtilities`Slice[
                   Key["P2"]]], "Mouse"]]}, {
               Item[
                Annotation[
                 EventHandler[
                  MouseAppearance[
                   Mouseover[
                    Pane[
                    RawBoxes[
                    StyleBox["\"P1\"", FontColor -> GrayLevel[0.4]]], {{
                    20, Full}, 15}], 
                    Style[
                    Pane[
                    RawBoxes[
                    StyleBox[
                    "\"P1\"", FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], {{20, Full}, 15}], FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                   TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$pos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 469846390][{
                    
                    Key["P1"]}]], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[469846390][
                 
                  GeneralUtilities`Slice[
                   Key["P1"]]], "Mouse"], Background -> GrayLevel[0.95], 
                Alignment -> {Left, Baseline}], 
               Item[
                Annotation[
                 EventHandler[
                  MouseAppearance[
                   Mouseover[
                    
                    Style[{$CellContext`l, 0, 0}, ShowStringCharacters -> 
                    False], 
                    Style[
                    
                    Style[{$CellContext`l, 0, 0}, ShowStringCharacters -> 
                    False], FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                   TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$pos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 469846390][{
                    
                    Key["P1"]}]], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[469846390][
                 
                  GeneralUtilities`Slice[
                   Key["P1"]]], "Mouse"]]}, {
               Item[
                Annotation[
                 EventHandler[
                  MouseAppearance[
                   Mouseover[
                    Pane[
                    RawBoxes[
                    StyleBox["\"P12\"", FontColor -> GrayLevel[0.4]]], {{
                    20, Full}, 15}], 
                    Style[
                    Pane[
                    RawBoxes[
                    StyleBox[
                    "\"P12\"", FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], {{20, Full}, 15}], FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                   TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$pos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 469846390][{
                    
                    Key["P12"]}]], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[469846390][
                 
                  GeneralUtilities`Slice[
                   Key["P12"]]], "Mouse"], Background -> GrayLevel[0.95], 
                Alignment -> {Left, Baseline}], 
               Item[
                Annotation[
                 EventHandler[
                  MouseAppearance[
                   Mouseover[
                    
                    Style[{$CellContext`l + $CellContext`l1, 0, 0}, 
                    ShowStringCharacters -> False], 
                    Style[
                    
                    Style[{$CellContext`l + $CellContext`l1, 0, 0}, 
                    ShowStringCharacters -> False], FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                   TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$pos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 469846390][{
                    
                    Key["P12"]}]], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[469846390][
                 
                  GeneralUtilities`Slice[
                   Key["P12"]]], "Mouse"]]}, {
               Item[
                Annotation[
                 EventHandler[
                  MouseAppearance[
                   Mouseover[
                    Pane[
                    RawBoxes[
                    StyleBox["\"P3\"", FontColor -> GrayLevel[0.4]]], {{
                    20, Full}, 15}], 
                    Style[
                    Pane[
                    RawBoxes[
                    StyleBox[
                    "\"P3\"", FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], {{20, Full}, 15}], FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                   TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$pos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 469846390][{
                    
                    Key["P3"]}]], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[469846390][
                 
                  GeneralUtilities`Slice[
                   Key["P3"]]], "Mouse"], Background -> GrayLevel[0.95], 
                Alignment -> {Left, Baseline}], 
               Item[
                Annotation[
                 EventHandler[
                  MouseAppearance[
                   Mouseover[
                    
                    Style[{$CellContext`x3, $CellContext`y3, $CellContext`z3},
                     ShowStringCharacters -> False], 
                    Style[
                    
                    Style[{$CellContext`x3, $CellContext`y3, $CellContext`z3},
                     ShowStringCharacters -> False], FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                   TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$pos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 469846390][{
                    
                    Key["P3"]}]], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[469846390][
                 
                  GeneralUtilities`Slice[
                   Key["P3"]]], "Mouse"]]}, {
               Item[
                Annotation[
                 EventHandler[
                  MouseAppearance[
                   Mouseover[
                    Pane[
                    RawBoxes[
                    StyleBox["\"P4\"", FontColor -> GrayLevel[0.4]]], {{
                    20, Full}, 15}], 
                    Style[
                    Pane[
                    RawBoxes[
                    StyleBox[
                    "\"P4\"", FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], {{20, Full}, 15}], FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                   TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$pos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 469846390][{
                    
                    Key["P4"]}]], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[469846390][
                 
                  GeneralUtilities`Slice[
                   Key["P4"]]], "Mouse"], Background -> GrayLevel[0.95], 
                Alignment -> {Left, Baseline}], 
               Item[
                Annotation[
                 EventHandler[
                  MouseAppearance[
                   Mouseover[
                    Style[{"x4,y4,z4"}, ShowStringCharacters -> False], 
                    Style[
                    Style[{"x4,y4,z4"}, ShowStringCharacters -> False], 
                    FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                   TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$pos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 469846390][{
                    
                    Key["P4"]}]], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[469846390][
                 
                  GeneralUtilities`Slice[
                   Key["P4"]]], "Mouse"]]}}, BaseStyle -> {ContextMenu -> {
                 MenuItem["Copy position to clipboard", 
                  KernelExecute[
                   TypeSystem`NestedGrid`PackagePrivate`toCurrentPosition[
                   TypeSystem`NestedGrid`PackagePrivate`copyClip]], 
                  MenuEvaluator -> Automatic], 
                 MenuItem["Copy data to clipboard", 
                  KernelExecute[
                   TypeSystem`NestedGrid`PackagePrivate`toCurrentData[
                   TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`copyClip]], 
                  MenuEvaluator -> Automatic], Delimiter, 
                 MenuItem["Paste position in new cell", 
                  KernelExecute[
                   TypeSystem`NestedGrid`PackagePrivate`toCurrentPosition[
                   TypeSystem`NestedGrid`PackagePrivate`cellPaste]], 
                  MenuEvaluator -> Automatic], 
                 MenuItem["Paste data in new cell", 
                  KernelExecute[
                   TypeSystem`NestedGrid`PackagePrivate`toCurrentData[
                   TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`cellPaste]], 
                  MenuEvaluator -> Automatic]}, FontFamily -> "Verdana", 
               FontSize -> 12}, Alignment -> Left, RowMinHeight -> 1.5, 
             Dividers -> All, FrameStyle -> GrayLevel[0.85], 
             BaseStyle -> {FontFamily -> "Verdana", FontSize -> 12}], 
            LineBreakWithin -> False, ContextMenu -> {}, NumberMarks -> False,
             ShowAutoStyles -> False]], 
         TypeSystem`NestedGrid`PackagePrivate`initialQ = True, 
         TypeSystem`NestedGrid`PackagePrivate`self = $Failed}, 
        Dynamic[
         TypeSystem`NestedGrid`PackagePrivate`setupViewPath[
         TypeSystem`NestedGrid`PackagePrivate`$path$$, If[
            Not[TypeSystem`NestedGrid`PackagePrivate`initialQ], 
            
            Module[{TypeSystem`NestedGrid`PackagePrivate`tmpGrid$ = $Failed, 
              TypeSystem`NestedGrid`PackagePrivate`tmpData$ = 
              TypeSystem`NestedGrid`PackagePrivate`LookupCacheValue[
                TypeSystem`NestedGrid`PackagePrivate`$state$$["Data"]]}, 
             TypeSystem`NestedGrid`PackagePrivate`tmpGrid$ = 
              If[TypeSystem`NestedGrid`PackagePrivate`tmpData$ === 
                TypeSystem`NestedGrid`PackagePrivate`$NotCached, 
                TypeSystem`NestedGrid`PackagePrivate`renderedGrid, 
                TypeSystem`NestedGrid`PackagePrivate`renderGrid[
                TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                 TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                 TypeSystem`NestedGrid`PackagePrivate`$pos$$, 
                 TypeSystem`NestedGrid`PackagePrivate`$grid$$, 469846390][
                TypeSystem`NestedGrid`PackagePrivate`tmpData$]]; If[
               Not[
                FailureQ[TypeSystem`NestedGrid`PackagePrivate`tmpGrid$]], 
               TypeSystem`NestedGrid`PackagePrivate`renderedGrid = 
               TypeSystem`NestedGrid`PackagePrivate`tmpGrid$]; Null]]; 
          TypeSystem`NestedGrid`PackagePrivate`initialQ = False; 
          TypeSystem`NestedGrid`PackagePrivate`$pos$$; If[
            FailureQ[TypeSystem`NestedGrid`PackagePrivate`renderedGrid], 
            TypeSystem`SparseGrid[
             TypeSystem`H["(data no longer present)"]], 
            If[GeneralUtilities`$DebugMode, 
             Row[{TypeSystem`NestedGrid`PackagePrivate`renderedGrid, "  ", 
               TypeSystem`NestedGrid`PackagePrivate`formatState[
               TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                TypeSystem`NestedGrid`PackagePrivate`$pos$$]}], 
             TypeSystem`NestedGrid`PackagePrivate`renderedGrid]]], 
         TrackedSymbols :> {TypeSystem`NestedGrid`PackagePrivate`$pos$$}], 
        DynamicModuleValues :> {}], 
      TypeSystem`NestedGrid`PackagePrivate`$posCell$$, 
      TypeSystem`NestedGrid`PackagePrivate`$topBar$$ = Dynamic[
        TypeSystem`NestedGrid`PackagePrivate`alignBar[
        TypeSystem`NestedGrid`PackagePrivate`$state$$][
         TypeSystem`NestedGrid`PackagePrivate`makeFramedBar[
          TypeSystem`PackageScope`Pathbar[
          TypeSystem`NestedGrid`PackagePrivate`$path$$, 
           TypeSystem`NestedGrid`PackagePrivate`updateState[
           TypeSystem`NestedGrid`PackagePrivate`$state$$, 
            TypeSystem`NestedGrid`PackagePrivate`$path$$, 
            TypeSystem`NestedGrid`PackagePrivate`$pos$$, 
            TypeSystem`NestedGrid`PackagePrivate`$grid$$, 469846390]]]], 
        TrackedSymbols :> {TypeSystem`NestedGrid`PackagePrivate`$path$$}], 
      TypeSystem`NestedGrid`PackagePrivate`$bottomBar$$ = Framed[
        Dynamic[
         Replace[
          MouseAnnotation[Null], {
          TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[469846390][Null] -> 
           "", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[469846390][
             Pattern[TypeSystem`NestedGrid`PackagePrivate`path, 
              Blank[]]] :> (
            TypeSystem`NestedGrid`PackagePrivate`$lastPath = 
             TypeSystem`NestedGrid`PackagePrivate`path; 
            TypeSystem`NestedGrid`PackagePrivate`makePathTrail[
             TypeSystem`NestedGrid`PackagePrivate`path, 
              TypeSystem`NestedGrid`PackagePrivate`makePathElements]), Null :> 
           Spacer[10], Blank[] :> Spacer[10]}], TrackedSymbols :> {}], 
        FrameStyle -> None, ImageMargins -> 0, FrameMargins -> 0, Alignment -> 
        Top, ImageSize -> {Automatic, 14}]}, 
     DynamicBox[
      ToBoxes[
       Column[
        If[TypeSystem`NestedGrid`PackagePrivate`$path$$ == {}, {
          TypeSystem`NestedGrid`PackagePrivate`displayScrollBar[
          TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
           TypeSystem`NestedGrid`PackagePrivate`$state$$, 
           TypeSystem`NestedGrid`PackagePrivate`$pos$$], 
          TypeSystem`NestedGrid`PackagePrivate`onDesktopShow[
           TypeSystem`NestedGrid`PackagePrivate`alignBar[
           TypeSystem`NestedGrid`PackagePrivate`$state$$][
           TypeSystem`NestedGrid`PackagePrivate`$bottomBar$$]]}, {
         TypeSystem`NestedGrid`PackagePrivate`$topBar$$, 
          TypeSystem`NestedGrid`PackagePrivate`displayScrollBar[
          TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
           TypeSystem`NestedGrid`PackagePrivate`$state$$, 
           TypeSystem`NestedGrid`PackagePrivate`$pos$$], 
          TypeSystem`NestedGrid`PackagePrivate`onDesktopShow[
           TypeSystem`NestedGrid`PackagePrivate`alignBar[
           TypeSystem`NestedGrid`PackagePrivate`$state$$][
           TypeSystem`NestedGrid`PackagePrivate`$bottomBar$$]]}], Spacings -> 
        If[TypeSystem`NestedGrid`PackagePrivate`$path$$ == {}, 
          0, {{}, {0, 0.05, 0}}]], StandardForm], 
      ImageSizeCache -> {83., {48., 51.}}, 
      TrackedSymbols :> {
       TypeSystem`NestedGrid`PackagePrivate`$state$$, 
        TypeSystem`NestedGrid`PackagePrivate`$grid$$}], 
     BaseStyle -> {LineBreakWithin -> False}, Deinitialization :> 
     TypeSystem`NestedGrid`PackagePrivate`deleteState[
      TypeSystem`NestedGrid`PackagePrivate`$state$$], 
     DynamicModuleValues :> {}, Initialization :> 
     Block[{$ContextPath = $ContextPath}, 
       Needs["TypeSystem`"]]], Deploy, DefaultBaseStyle -> "Deploy"]},
  "CopyTag",
  DisplayFunction->(#& ),
  InterpretationFunction->("Dataset[<>]"& )]], "Output",
 CellChangeTimes->{3.784979092983177*^9},
 CellLabel->
  "Out[346]=",ExpressionUUID->"be72ea45-02ae-418d-bde3-b5834bb27cf1"]
}, Open  ]],

Cell["\:4e0b\:9762\:7ed9\:51faP23\:7b26\:53f7\:5750\:6807\:ff0c\:89e3\:51fa\
\:6765\:6709\:4e24\:4e2a\:70b9\:ff0c\:5b9e\:9645\:751f\:6d3b\:4e2d\:53ef\:6392\
\:9664\:5176\:4e2d\:4e00\:4e2a\:3002", "Text",
 CellChangeTimes->{{3.7849791830640583`*^9, 
  3.784979246893023*^9}},ExpressionUUID->"e22adae8-b71b-41a4-a92d-\
ab5c5ab43725"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Block", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"list", "=", 
      RowBox[{"ToExpression", "@", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"StringJoin", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"{", 
               RowBox[{"\"\<x\>\"", ",", "\"\<y\>\"", ",", "\"\<z\>\""}], 
               "}"}], "[", 
              RowBox[{"[", "#", "]"}], "]"}], ",", 
             RowBox[{"ToString", "[", "k", "]"}]}], "]"}], "&"}], "/@", 
          RowBox[{"Range", "[", "3", "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"k", ",", "1", ",", "4"}], "}"}]}], "]"}]}]}], ",", "list2",
      ",", "list3", ",", "list4"}], "}"}], ",", 
   RowBox[{
    RowBox[{"list4", "=", 
     RowBox[{"AssociationThread", "[", 
      RowBox[{
       RowBox[{"Flatten", "@", 
        RowBox[{"list", "[", 
         RowBox[{"[", 
          RowBox[{"1", ";;", "2"}], "]"}], "]"}]}], ",", 
       RowBox[{"Join", "[", 
        RowBox[{
         RowBox[{"{", "l", "}"}], ",", 
         RowBox[{
          RowBox[{"0", "&"}], "/@", 
          RowBox[{"Range", "[", "5", "]"}]}]}], "]"}]}], "]"}]}], ";", 
    RowBox[{"list2", "=", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"list", "[", 
            RowBox[{"[", 
             RowBox[{"2", " ", "#"}], "]"}], "]"}], "-", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"1", "+", 
              RowBox[{
               RowBox[{"ToExpression", "@", 
                RowBox[{"StringJoin", "[", 
                 RowBox[{"\"\<l\>\"", ",", 
                  RowBox[{"ToString", "[", "#", "]"}]}], "]"}]}], "/", 
               RowBox[{"sqrt", "[", 
                RowBox[{"Total", "[", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"list", "[", 
                    RowBox[{"[", 
                    RowBox[{"2", " ", "#"}], "]"}], "]"}], "-", 
                    RowBox[{"list", "[", 
                    RowBox[{"[", 
                    RowBox[{
                    RowBox[{"2", " ", "#"}], "-", "1"}], "]"}], "]"}]}], 
                   ")"}], "^", "2"}], "]"}], "]"}]}]}], ")"}], "*", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"list", "[", 
               RowBox[{"[", 
                RowBox[{"2", " ", "#"}], "]"}], "]"}], "-", 
              RowBox[{"list", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"2", " ", "#"}], "-", "1"}], "]"}], "]"}]}], 
             ")"}]}]}], "&"}], "/@", 
         RowBox[{"Range", "[", "2", "]"}]}], ")"}], "/.", "list4"}], "/.", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"sqrt", "[", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "x3"}], "+", "x4"}], ")"}], "2"], "+", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "y3"}], "+", "y4"}], ")"}], "2"], "+", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "z3"}], "+", "z4"}], ")"}], "2"]}], "]"}], 
         "\[Rule]", "r1"}], ",", 
        RowBox[{
         RowBox[{"sqrt", "[", 
          RowBox[{"l", "^", "2"}], "]"}], "\[Rule]", "l"}]}], "}"}]}]}], ";", 
    
    RowBox[{"FullSimplify", "[", 
     RowBox[{
      RowBox[{"list2", "[", 
       RowBox[{"[", "2", "]"}], "]"}], "/.", 
      RowBox[{"Solve", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"Dot", "[", 
                RowBox[{"a", ",", "b"}], "]"}], "^", "2"}], "/", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"Total", "[", 
                 RowBox[{"a", "^", "2"}], "]"}], "*", 
                RowBox[{"Total", "[", 
                 RowBox[{"b", "^", "2"}], "]"}]}], ")"}]}], "/.", 
             RowBox[{"AssociationThread", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"a", ",", "b"}], "}"}], ",", 
               RowBox[{"Flatten", "[", 
                RowBox[{
                 RowBox[{"Differences", "/@", 
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"list", "[", 
                    RowBox[{"[", 
                    RowBox[{"1", ";;", "2"}], "]"}], "]"}], ",", "list2"}], 
                   "}"}]}], ",", "1"}], "]"}]}], "]"}]}], ")"}], "/.", 
           "list4"}], ")"}], "\[Equal]", 
         RowBox[{"1", "/", "2"}]}], ",", "l2"}], "]"}]}], "]"}]}]}], 
  "]"}]], "Input",
 CellLabel->
  "In[412]:=",ExpressionUUID->"16640ec2-2c9d-44e6-b075-301d2cdfd4db"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x4", "-", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"x3", "-", "x4"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"\[Sqrt]", 
            RowBox[{"(", 
             RowBox[{
              SuperscriptBox["r1", "2"], " ", 
              RowBox[{"(", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"l", "+", "l1", "-", "x3"}], ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{"x3", "-", "x4"}], ")"}]}], "+", 
                   SuperscriptBox["y3", "2"], "-", 
                   RowBox[{"y3", " ", "y4"}], "+", 
                   RowBox[{"z3", " ", 
                    RowBox[{"(", 
                    RowBox[{"z3", "-", "z4"}], ")"}]}]}], ")"}], "2"], "-", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{
                   SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{"l", "+", "l1", "-", "x3"}], ")"}], "2"], "-", 
                   SuperscriptBox["y3", "2"], "-", 
                   SuperscriptBox["z3", "2"]}], ")"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{"x3", "-", "x4"}], ")"}], "2"], "-", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{"y3", "-", "y4"}], ")"}], "2"], "-", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{"z3", "-", "z4"}], ")"}], "2"]}], ")"}]}]}], 
               ")"}]}], ")"}]}], "+", 
           RowBox[{"r1", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"(", 
                RowBox[{"l", "+", "l1", "-", "x4"}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "x3"}], "+", "x4"}], ")"}]}], "-", 
              RowBox[{"y3", " ", "y4"}], "+", 
              SuperscriptBox["y4", "2"], "+", 
              RowBox[{"z4", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "z3"}], "+", "z4"}], ")"}]}]}], ")"}]}]}], 
          ")"}]}], ")"}], "/", 
       RowBox[{"(", 
        RowBox[{"r1", " ", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"x3", "-", "x4"}], ")"}], "2"], "-", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"y3", "-", "y4"}], ")"}], "2"], "-", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"z3", "-", "z4"}], ")"}], "2"]}], ")"}]}], ")"}]}]}], 
     ",", 
     RowBox[{"y4", "-", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"y3", "-", "y4"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", 
            RowBox[{"\[Sqrt]", 
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox["r1", "2"], " ", 
               RowBox[{"(", 
                RowBox[{
                 SuperscriptBox[
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"l", "+", "l1", "-", "x3"}], ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{"x3", "-", "x4"}], ")"}]}], "+", 
                    SuperscriptBox["y3", "2"], "-", 
                    RowBox[{"y3", " ", "y4"}], "+", 
                    RowBox[{"z3", " ", 
                    RowBox[{"(", 
                    RowBox[{"z3", "-", "z4"}], ")"}]}]}], ")"}], "2"], "-", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{"l", "+", "l1", "-", "x3"}], ")"}], "2"], "-", 
                    SuperscriptBox["y3", "2"], "-", 
                    SuperscriptBox["z3", "2"]}], ")"}], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{"x3", "-", "x4"}], ")"}], "2"], "-", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{"y3", "-", "y4"}], ")"}], "2"], "-", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{"z3", "-", "z4"}], ")"}], "2"]}], ")"}]}]}], 
                ")"}]}], ")"}]}]}], "+", 
           RowBox[{"r1", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"(", 
                RowBox[{"l", "+", "l1", "-", "x4"}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{"x3", "-", "x4"}], ")"}]}], "+", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"y3", "-", "y4"}], ")"}], " ", "y4"}], "+", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"z3", "-", "z4"}], ")"}], " ", "z4"}]}], ")"}]}]}], 
          ")"}]}], ")"}], "/", 
       RowBox[{"(", 
        RowBox[{"r1", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"x3", "-", "x4"}], ")"}], "2"]}], "+", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"y3", "-", "y4"}], ")"}], "2"], "+", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"z3", "-", "z4"}], ")"}], "2"]}], ")"}]}], ")"}]}]}], 
     ",", 
     RowBox[{"z4", "-", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"z3", "-", "z4"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", 
            RowBox[{"\[Sqrt]", 
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox["r1", "2"], " ", 
               RowBox[{"(", 
                RowBox[{
                 SuperscriptBox[
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"l", "+", "l1", "-", "x3"}], ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{"x3", "-", "x4"}], ")"}]}], "+", 
                    SuperscriptBox["y3", "2"], "-", 
                    RowBox[{"y3", " ", "y4"}], "+", 
                    RowBox[{"z3", " ", 
                    RowBox[{"(", 
                    RowBox[{"z3", "-", "z4"}], ")"}]}]}], ")"}], "2"], "-", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{"l", "+", "l1", "-", "x3"}], ")"}], "2"], "-", 
                    SuperscriptBox["y3", "2"], "-", 
                    SuperscriptBox["z3", "2"]}], ")"}], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{"x3", "-", "x4"}], ")"}], "2"], "-", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{"y3", "-", "y4"}], ")"}], "2"], "-", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{"z3", "-", "z4"}], ")"}], "2"]}], ")"}]}]}], 
                ")"}]}], ")"}]}]}], "+", 
           RowBox[{"r1", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"(", 
                RowBox[{"l", "+", "l1", "-", "x4"}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{"x3", "-", "x4"}], ")"}]}], "+", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"y3", "-", "y4"}], ")"}], " ", "y4"}], "+", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"z3", "-", "z4"}], ")"}], " ", "z4"}]}], ")"}]}]}], 
          ")"}]}], ")"}], "/", 
       RowBox[{"(", 
        RowBox[{"r1", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"x3", "-", "x4"}], ")"}], "2"]}], "+", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"y3", "-", "y4"}], ")"}], "2"], "+", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"z3", "-", "z4"}], ")"}], "2"]}], ")"}]}], ")"}]}]}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x4", "-", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"x3", "-", "x4"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", 
            RowBox[{"\[Sqrt]", 
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox["r1", "2"], " ", 
               RowBox[{"(", 
                RowBox[{
                 SuperscriptBox[
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"l", "+", "l1", "-", "x3"}], ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{"x3", "-", "x4"}], ")"}]}], "+", 
                    SuperscriptBox["y3", "2"], "-", 
                    RowBox[{"y3", " ", "y4"}], "+", 
                    RowBox[{"z3", " ", 
                    RowBox[{"(", 
                    RowBox[{"z3", "-", "z4"}], ")"}]}]}], ")"}], "2"], "-", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{"l", "+", "l1", "-", "x3"}], ")"}], "2"], "-", 
                    SuperscriptBox["y3", "2"], "-", 
                    SuperscriptBox["z3", "2"]}], ")"}], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{"x3", "-", "x4"}], ")"}], "2"], "-", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{"y3", "-", "y4"}], ")"}], "2"], "-", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{"z3", "-", "z4"}], ")"}], "2"]}], ")"}]}]}], 
                ")"}]}], ")"}]}]}], "+", 
           RowBox[{"r1", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"(", 
                RowBox[{"l", "+", "l1", "-", "x4"}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "x3"}], "+", "x4"}], ")"}]}], "-", 
              RowBox[{"y3", " ", "y4"}], "+", 
              SuperscriptBox["y4", "2"], "+", 
              RowBox[{"z4", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "z3"}], "+", "z4"}], ")"}]}]}], ")"}]}]}], 
          ")"}]}], ")"}], "/", 
       RowBox[{"(", 
        RowBox[{"r1", " ", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"x3", "-", "x4"}], ")"}], "2"], "-", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"y3", "-", "y4"}], ")"}], "2"], "-", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"z3", "-", "z4"}], ")"}], "2"]}], ")"}]}], ")"}]}]}], 
     ",", 
     RowBox[{"y4", "-", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"y3", "-", "y4"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"\[Sqrt]", 
            RowBox[{"(", 
             RowBox[{
              SuperscriptBox["r1", "2"], " ", 
              RowBox[{"(", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"l", "+", "l1", "-", "x3"}], ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{"x3", "-", "x4"}], ")"}]}], "+", 
                   SuperscriptBox["y3", "2"], "-", 
                   RowBox[{"y3", " ", "y4"}], "+", 
                   RowBox[{"z3", " ", 
                    RowBox[{"(", 
                    RowBox[{"z3", "-", "z4"}], ")"}]}]}], ")"}], "2"], "-", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{
                   SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{"l", "+", "l1", "-", "x3"}], ")"}], "2"], "-", 
                   SuperscriptBox["y3", "2"], "-", 
                   SuperscriptBox["z3", "2"]}], ")"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{"x3", "-", "x4"}], ")"}], "2"], "-", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{"y3", "-", "y4"}], ")"}], "2"], "-", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{"z3", "-", "z4"}], ")"}], "2"]}], ")"}]}]}], 
               ")"}]}], ")"}]}], "+", 
           RowBox[{"r1", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"(", 
                RowBox[{"l", "+", "l1", "-", "x4"}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{"x3", "-", "x4"}], ")"}]}], "+", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"y3", "-", "y4"}], ")"}], " ", "y4"}], "+", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"z3", "-", "z4"}], ")"}], " ", "z4"}]}], ")"}]}]}], 
          ")"}]}], ")"}], "/", 
       RowBox[{"(", 
        RowBox[{"r1", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"x3", "-", "x4"}], ")"}], "2"]}], "+", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"y3", "-", "y4"}], ")"}], "2"], "+", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"z3", "-", "z4"}], ")"}], "2"]}], ")"}]}], ")"}]}]}], 
     ",", 
     RowBox[{"z4", "-", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"z3", "-", "z4"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"\[Sqrt]", 
            RowBox[{"(", 
             RowBox[{
              SuperscriptBox["r1", "2"], " ", 
              RowBox[{"(", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"l", "+", "l1", "-", "x3"}], ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{"x3", "-", "x4"}], ")"}]}], "+", 
                   SuperscriptBox["y3", "2"], "-", 
                   RowBox[{"y3", " ", "y4"}], "+", 
                   RowBox[{"z3", " ", 
                    RowBox[{"(", 
                    RowBox[{"z3", "-", "z4"}], ")"}]}]}], ")"}], "2"], "-", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{
                   SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{"l", "+", "l1", "-", "x3"}], ")"}], "2"], "-", 
                   SuperscriptBox["y3", "2"], "-", 
                   SuperscriptBox["z3", "2"]}], ")"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{"x3", "-", "x4"}], ")"}], "2"], "-", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{"y3", "-", "y4"}], ")"}], "2"], "-", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{"z3", "-", "z4"}], ")"}], "2"]}], ")"}]}]}], 
               ")"}]}], ")"}]}], "+", 
           RowBox[{"r1", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"(", 
                RowBox[{"l", "+", "l1", "-", "x4"}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{"x3", "-", "x4"}], ")"}]}], "+", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"y3", "-", "y4"}], ")"}], " ", "y4"}], "+", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"z3", "-", "z4"}], ")"}], " ", "z4"}]}], ")"}]}]}], 
          ")"}]}], ")"}], "/", 
       RowBox[{"(", 
        RowBox[{"r1", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"x3", "-", "x4"}], ")"}], "2"]}], "+", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"y3", "-", "y4"}], ")"}], "2"], "+", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"z3", "-", "z4"}], ")"}], "2"]}], ")"}]}], ")"}]}]}]}], 
    "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.785013397489422*^9, 3.785013830388896*^9},
 CellLabel->
  "Out[412]=",ExpressionUUID->"b43052f0-97a1-4136-8f91-f2a75104a31a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Out", "[", "412", "]"}], "//", "TraditionalForm"}]], "Input",
 CellChangeTimes->{{3.785014830038899*^9, 3.785014836346808*^9}},
 CellLabel->
  "In[419]:=",ExpressionUUID->"bb90a733-d836-4bdf-9cbb-bb5a2e5f2c2e"],

Cell[BoxData[
 FormBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{"x4", "-", 
       FractionBox[
        RowBox[{
         RowBox[{"(", 
          RowBox[{"x3", "-", "x4"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           SqrtBox[
            RowBox[{
             SuperscriptBox["r1", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"x3", "-", "x4"}], ")"}], " ", 
                   RowBox[{"(", 
                    RowBox[{"l", "+", "l1", "-", "x3"}], ")"}]}], "+", 
                  SuperscriptBox["y3", "2"], "-", 
                  RowBox[{"y3", " ", "y4"}], "+", 
                  RowBox[{"z3", " ", 
                   RowBox[{"(", 
                    RowBox[{"z3", "-", "z4"}], ")"}]}]}], ")"}], "2"], "-", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  SuperscriptBox[
                   RowBox[{"(", 
                    RowBox[{"l", "+", "l1", "-", "x3"}], ")"}], "2"], "-", 
                  SuperscriptBox["y3", "2"], "-", 
                  SuperscriptBox["z3", "2"]}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  SuperscriptBox[
                   RowBox[{"(", 
                    RowBox[{"x3", "-", "x4"}], ")"}], "2"], "-", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    RowBox[{"y3", "-", "y4"}], ")"}], "2"], "-", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    RowBox[{"z3", "-", "z4"}], ")"}], "2"]}], ")"}]}]}], 
              ")"}]}]], "+", 
           RowBox[{"r1", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"(", 
                RowBox[{"x4", "-", "x3"}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{"l", "+", "l1", "-", "x4"}], ")"}]}], "-", 
              RowBox[{"y3", " ", "y4"}], "+", 
              SuperscriptBox["y4", "2"], "+", 
              RowBox[{"z4", " ", 
               RowBox[{"(", 
                RowBox[{"z4", "-", "z3"}], ")"}]}]}], ")"}]}]}], ")"}]}], 
        RowBox[{"r1", " ", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"x3", "-", "x4"}], ")"}], "2"], "-", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"y3", "-", "y4"}], ")"}], "2"], "-", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"z3", "-", "z4"}], ")"}], "2"]}], ")"}]}]]}], 
      RowBox[{"y4", "-", 
       FractionBox[
        RowBox[{
         RowBox[{"(", 
          RowBox[{"y3", "-", "y4"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"r1", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"(", 
                RowBox[{"x3", "-", "x4"}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{"l", "+", "l1", "-", "x4"}], ")"}]}], "+", 
              RowBox[{"y4", " ", 
               RowBox[{"(", 
                RowBox[{"y3", "-", "y4"}], ")"}]}], "+", 
              RowBox[{"z4", " ", 
               RowBox[{"(", 
                RowBox[{"z3", "-", "z4"}], ")"}]}]}], ")"}]}], "-", 
           SqrtBox[
            RowBox[{
             SuperscriptBox["r1", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"x3", "-", "x4"}], ")"}], " ", 
                   RowBox[{"(", 
                    RowBox[{"l", "+", "l1", "-", "x3"}], ")"}]}], "+", 
                  SuperscriptBox["y3", "2"], "-", 
                  RowBox[{"y3", " ", "y4"}], "+", 
                  RowBox[{"z3", " ", 
                   RowBox[{"(", 
                    RowBox[{"z3", "-", "z4"}], ")"}]}]}], ")"}], "2"], "-", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  SuperscriptBox[
                   RowBox[{"(", 
                    RowBox[{"l", "+", "l1", "-", "x3"}], ")"}], "2"], "-", 
                  SuperscriptBox["y3", "2"], "-", 
                  SuperscriptBox["z3", "2"]}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  SuperscriptBox[
                   RowBox[{"(", 
                    RowBox[{"x3", "-", "x4"}], ")"}], "2"], "-", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    RowBox[{"y3", "-", "y4"}], ")"}], "2"], "-", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    RowBox[{"z3", "-", "z4"}], ")"}], "2"]}], ")"}]}]}], 
              ")"}]}]]}], ")"}]}], 
        RowBox[{"r1", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"x3", "-", "x4"}], ")"}], "2"]}], "+", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"y3", "-", "y4"}], ")"}], "2"], "+", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"z3", "-", "z4"}], ")"}], "2"]}], ")"}]}]]}], 
      RowBox[{"z4", "-", 
       FractionBox[
        RowBox[{
         RowBox[{"(", 
          RowBox[{"z3", "-", "z4"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"r1", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"(", 
                RowBox[{"x3", "-", "x4"}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{"l", "+", "l1", "-", "x4"}], ")"}]}], "+", 
              RowBox[{"y4", " ", 
               RowBox[{"(", 
                RowBox[{"y3", "-", "y4"}], ")"}]}], "+", 
              RowBox[{"z4", " ", 
               RowBox[{"(", 
                RowBox[{"z3", "-", "z4"}], ")"}]}]}], ")"}]}], "-", 
           SqrtBox[
            RowBox[{
             SuperscriptBox["r1", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"x3", "-", "x4"}], ")"}], " ", 
                   RowBox[{"(", 
                    RowBox[{"l", "+", "l1", "-", "x3"}], ")"}]}], "+", 
                  SuperscriptBox["y3", "2"], "-", 
                  RowBox[{"y3", " ", "y4"}], "+", 
                  RowBox[{"z3", " ", 
                   RowBox[{"(", 
                    RowBox[{"z3", "-", "z4"}], ")"}]}]}], ")"}], "2"], "-", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  SuperscriptBox[
                   RowBox[{"(", 
                    RowBox[{"l", "+", "l1", "-", "x3"}], ")"}], "2"], "-", 
                  SuperscriptBox["y3", "2"], "-", 
                  SuperscriptBox["z3", "2"]}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  SuperscriptBox[
                   RowBox[{"(", 
                    RowBox[{"x3", "-", "x4"}], ")"}], "2"], "-", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    RowBox[{"y3", "-", "y4"}], ")"}], "2"], "-", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    RowBox[{"z3", "-", "z4"}], ")"}], "2"]}], ")"}]}]}], 
              ")"}]}]]}], ")"}]}], 
        RowBox[{"r1", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"x3", "-", "x4"}], ")"}], "2"]}], "+", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"y3", "-", "y4"}], ")"}], "2"], "+", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"z3", "-", "z4"}], ")"}], "2"]}], ")"}]}]]}]},
     {
      RowBox[{"x4", "-", 
       FractionBox[
        RowBox[{
         RowBox[{"(", 
          RowBox[{"x3", "-", "x4"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"r1", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"(", 
                RowBox[{"x4", "-", "x3"}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{"l", "+", "l1", "-", "x4"}], ")"}]}], "-", 
              RowBox[{"y3", " ", "y4"}], "+", 
              SuperscriptBox["y4", "2"], "+", 
              RowBox[{"z4", " ", 
               RowBox[{"(", 
                RowBox[{"z4", "-", "z3"}], ")"}]}]}], ")"}]}], "-", 
           SqrtBox[
            RowBox[{
             SuperscriptBox["r1", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"x3", "-", "x4"}], ")"}], " ", 
                   RowBox[{"(", 
                    RowBox[{"l", "+", "l1", "-", "x3"}], ")"}]}], "+", 
                  SuperscriptBox["y3", "2"], "-", 
                  RowBox[{"y3", " ", "y4"}], "+", 
                  RowBox[{"z3", " ", 
                   RowBox[{"(", 
                    RowBox[{"z3", "-", "z4"}], ")"}]}]}], ")"}], "2"], "-", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  SuperscriptBox[
                   RowBox[{"(", 
                    RowBox[{"l", "+", "l1", "-", "x3"}], ")"}], "2"], "-", 
                  SuperscriptBox["y3", "2"], "-", 
                  SuperscriptBox["z3", "2"]}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  SuperscriptBox[
                   RowBox[{"(", 
                    RowBox[{"x3", "-", "x4"}], ")"}], "2"], "-", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    RowBox[{"y3", "-", "y4"}], ")"}], "2"], "-", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    RowBox[{"z3", "-", "z4"}], ")"}], "2"]}], ")"}]}]}], 
              ")"}]}]]}], ")"}]}], 
        RowBox[{"r1", " ", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"x3", "-", "x4"}], ")"}], "2"], "-", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"y3", "-", "y4"}], ")"}], "2"], "-", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"z3", "-", "z4"}], ")"}], "2"]}], ")"}]}]]}], 
      RowBox[{"y4", "-", 
       FractionBox[
        RowBox[{
         RowBox[{"(", 
          RowBox[{"y3", "-", "y4"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           SqrtBox[
            RowBox[{
             SuperscriptBox["r1", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"x3", "-", "x4"}], ")"}], " ", 
                   RowBox[{"(", 
                    RowBox[{"l", "+", "l1", "-", "x3"}], ")"}]}], "+", 
                  SuperscriptBox["y3", "2"], "-", 
                  RowBox[{"y3", " ", "y4"}], "+", 
                  RowBox[{"z3", " ", 
                   RowBox[{"(", 
                    RowBox[{"z3", "-", "z4"}], ")"}]}]}], ")"}], "2"], "-", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  SuperscriptBox[
                   RowBox[{"(", 
                    RowBox[{"l", "+", "l1", "-", "x3"}], ")"}], "2"], "-", 
                  SuperscriptBox["y3", "2"], "-", 
                  SuperscriptBox["z3", "2"]}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  SuperscriptBox[
                   RowBox[{"(", 
                    RowBox[{"x3", "-", "x4"}], ")"}], "2"], "-", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    RowBox[{"y3", "-", "y4"}], ")"}], "2"], "-", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    RowBox[{"z3", "-", "z4"}], ")"}], "2"]}], ")"}]}]}], 
              ")"}]}]], "+", 
           RowBox[{"r1", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"(", 
                RowBox[{"x3", "-", "x4"}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{"l", "+", "l1", "-", "x4"}], ")"}]}], "+", 
              RowBox[{"y4", " ", 
               RowBox[{"(", 
                RowBox[{"y3", "-", "y4"}], ")"}]}], "+", 
              RowBox[{"z4", " ", 
               RowBox[{"(", 
                RowBox[{"z3", "-", "z4"}], ")"}]}]}], ")"}]}]}], ")"}]}], 
        RowBox[{"r1", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"x3", "-", "x4"}], ")"}], "2"]}], "+", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"y3", "-", "y4"}], ")"}], "2"], "+", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"z3", "-", "z4"}], ")"}], "2"]}], ")"}]}]]}], 
      RowBox[{"z4", "-", 
       FractionBox[
        RowBox[{
         RowBox[{"(", 
          RowBox[{"z3", "-", "z4"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           SqrtBox[
            RowBox[{
             SuperscriptBox["r1", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"x3", "-", "x4"}], ")"}], " ", 
                   RowBox[{"(", 
                    RowBox[{"l", "+", "l1", "-", "x3"}], ")"}]}], "+", 
                  SuperscriptBox["y3", "2"], "-", 
                  RowBox[{"y3", " ", "y4"}], "+", 
                  RowBox[{"z3", " ", 
                   RowBox[{"(", 
                    RowBox[{"z3", "-", "z4"}], ")"}]}]}], ")"}], "2"], "-", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  SuperscriptBox[
                   RowBox[{"(", 
                    RowBox[{"l", "+", "l1", "-", "x3"}], ")"}], "2"], "-", 
                  SuperscriptBox["y3", "2"], "-", 
                  SuperscriptBox["z3", "2"]}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  SuperscriptBox[
                   RowBox[{"(", 
                    RowBox[{"x3", "-", "x4"}], ")"}], "2"], "-", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    RowBox[{"y3", "-", "y4"}], ")"}], "2"], "-", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    RowBox[{"z3", "-", "z4"}], ")"}], "2"]}], ")"}]}]}], 
              ")"}]}]], "+", 
           RowBox[{"r1", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"(", 
                RowBox[{"x3", "-", "x4"}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{"l", "+", "l1", "-", "x4"}], ")"}]}], "+", 
              RowBox[{"y4", " ", 
               RowBox[{"(", 
                RowBox[{"y3", "-", "y4"}], ")"}]}], "+", 
              RowBox[{"z4", " ", 
               RowBox[{"(", 
                RowBox[{"z3", "-", "z4"}], ")"}]}]}], ")"}]}]}], ")"}]}], 
        RowBox[{"r1", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"x3", "-", "x4"}], ")"}], "2"]}], "+", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"y3", "-", "y4"}], ")"}], "2"], "+", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"z3", "-", "z4"}], ")"}], "2"]}], ")"}]}]]}]}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}], TraditionalForm]], "Output",
 CellChangeTimes->{3.7850148371825047`*^9},
 CellLabel->
  "Out[419]//TraditionalForm=",ExpressionUUID->"a91e6019-ded3-4854-8c0e-\
ab109f5fa946"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["P23\:7b26\:53f7\:8868\:8fbe\:7684\:7b80\:5316", "Section",
 CellChangeTimes->{{3.785370077304793*^9, 
  3.7853701105315113`*^9}},ExpressionUUID->"0a86a314-2ac9-4333-bb2f-\
e6057ed9382a"],

Cell["\:6df1\:5165\:7814\:7a76\:89e3P23\:7684\:65b9\:7a0b\:4e4b\:540e\:ff0c\
\:8fd0\:884c\:4ee3\:7801\:6211\:4eec\:5176\:5b9e\:53ef\:4ee5\:770b\:5230\:7b49\
\:4ef7\:4e8e\:89e3\:4e00\:4e2a\:5173\:4e8el2\:7684\:4e8c\:6b21\:65b9\:7a0b", \
"Text",
 CellChangeTimes->{{3.78537012481138*^9, 3.785370163257493*^9}, {
  3.78537029393406*^9, 3.785370319754846*^9}, {3.7853704268703547`*^9, 
  3.785370429070325*^9}, {3.7853704609991827`*^9, 
  3.785370507598415*^9}},ExpressionUUID->"aebaa02e-258c-435a-9010-\
bd1922843e6b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"list", "=", 
       RowBox[{"ToExpression", "@", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"StringJoin", "[", 
             RowBox[{
              RowBox[{
               RowBox[{"{", 
                RowBox[{"\"\<x\>\"", ",", "\"\<y\>\"", ",", "\"\<z\>\""}], 
                "}"}], "[", 
               RowBox[{"[", "#", "]"}], "]"}], ",", 
              RowBox[{"ToString", "[", "k", "]"}]}], "]"}], "&"}], "/@", 
           RowBox[{"Range", "[", "3", "]"}]}], ",", 
          RowBox[{"{", 
           RowBox[{"k", ",", "1", ",", "4"}], "}"}]}], "]"}]}]}], ",", 
      "list2", ",", "list3", ",", "list4"}], "}"}], ",", 
    RowBox[{
     RowBox[{"list4", "=", 
      RowBox[{"AssociationThread", "[", 
       RowBox[{
        RowBox[{"Flatten", "@", 
         RowBox[{"list", "[", 
          RowBox[{"[", 
           RowBox[{"1", ";;", "2"}], "]"}], "]"}]}], ",", 
        RowBox[{"Join", "[", 
         RowBox[{
          RowBox[{"{", "l", "}"}], ",", 
          RowBox[{
           RowBox[{"0", "&"}], "/@", 
           RowBox[{"Range", "[", "5", "]"}]}]}], "]"}]}], "]"}]}], ";", 
     RowBox[{"list2", "=", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"list", "[", 
             RowBox[{"[", 
              RowBox[{"2", " ", "#"}], "]"}], "]"}], "-", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"1", "+", 
               RowBox[{
                RowBox[{"ToExpression", "@", 
                 RowBox[{"StringJoin", "[", 
                  RowBox[{"\"\<l\>\"", ",", 
                   RowBox[{"ToString", "[", "#", "]"}]}], "]"}]}], "/", 
                RowBox[{"sqrt", "[", 
                 RowBox[{"Total", "[", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"list", "[", 
                    RowBox[{"[", 
                    RowBox[{"2", " ", "#"}], "]"}], "]"}], "-", 
                    RowBox[{"list", "[", 
                    RowBox[{"[", 
                    RowBox[{
                    RowBox[{"2", " ", "#"}], "-", "1"}], "]"}], "]"}]}], 
                    ")"}], "^", "2"}], "]"}], "]"}]}]}], ")"}], "*", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"list", "[", 
                RowBox[{"[", 
                 RowBox[{"2", " ", "#"}], "]"}], "]"}], "-", 
               RowBox[{"list", "[", 
                RowBox[{"[", 
                 RowBox[{
                  RowBox[{"2", " ", "#"}], "-", "1"}], "]"}], "]"}]}], 
              ")"}]}]}], "&"}], "/@", 
          RowBox[{"Range", "[", "2", "]"}]}], ")"}], "/.", "list4"}], "/.", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"sqrt", "[", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "x3"}], "+", "x4"}], ")"}], "2"], "+", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "y3"}], "+", "y4"}], ")"}], "2"], "+", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "z3"}], "+", "z4"}], ")"}], "2"]}], "]"}], 
          "\[Rule]", "r1"}], ",", 
         RowBox[{
          RowBox[{"sqrt", "[", 
           RowBox[{"l", "^", "2"}], "]"}], "\[Rule]", "l"}]}], "}"}]}]}], ";", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"Dot", "[", 
             RowBox[{"a", ",", "b"}], "]"}], "^", "2"}], "/", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"Total", "[", 
              RowBox[{"a", "^", "2"}], "]"}], "*", 
             RowBox[{"Total", "[", 
              RowBox[{"b", "^", "2"}], "]"}]}], ")"}]}], "/.", 
          RowBox[{"AssociationThread", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"a", ",", "b"}], "}"}], ",", 
            RowBox[{"Flatten", "[", 
             RowBox[{
              RowBox[{"Differences", "/@", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"list", "[", 
                  RowBox[{"[", 
                   RowBox[{"1", ";;", "2"}], "]"}], "]"}], ",", "list2"}], 
                "}"}]}], ",", "1"}], "]"}]}], "]"}]}], ")"}], "/.", "list4"}],
        ")"}], "\[Equal]", 
      RowBox[{"1", "/", "2"}]}]}]}], "]"}], "//", 
  "TraditionalForm"}]], "Input",
 CellChangeTimes->{{3.7853700500300922`*^9, 3.785370054409396*^9}, {
  3.785370438731141*^9, 3.785370448611931*^9}},
 CellLabel->"In[5]:=",ExpressionUUID->"e8288135-f434-457a-9fe8-15c0c7f06fa0"],

Cell[BoxData[
 FormBox[
  RowBox[{
   FractionBox[
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{"l", " ", 
         RowBox[{"(", 
          RowBox[{
           FractionBox["l1", "l"], "+", "1"}], ")"}]}]}], "-", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          FractionBox["l2", "r1"], "+", "1"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"x4", "-", "x3"}], ")"}]}], "+", "x4"}], ")"}], "2"], 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", 
         RowBox[{"l", " ", 
          RowBox[{"(", 
           RowBox[{
            FractionBox["l1", "l"], "+", "1"}], ")"}]}]}], "-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           FractionBox["l2", "r1"], "+", "1"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{"x4", "-", "x3"}], ")"}]}], "+", "x4"}], ")"}], "2"], "+", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"y4", "-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           FractionBox["l2", "r1"], "+", "1"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{"y4", "-", "y3"}], ")"}]}]}], ")"}], "2"], "+", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"z4", "-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           FractionBox["l2", "r1"], "+", "1"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{"z4", "-", "z3"}], ")"}]}]}], ")"}], "2"]}]], 
   "\[LongEqual]", 
   FractionBox["1", "2"]}], TraditionalForm]], "Output",
 CellChangeTimes->{3.785370527396347*^9, 3.785370612842495*^9},
 CellLabel->
  "Out[5]//TraditionalForm=",ExpressionUUID->"8dde3fba-f93a-401e-a3b2-\
8d5d2b06a6f0"]
}, Open  ]],

Cell[TextData[{
 "\:6211\:4eec\:6765\:83b7\:53d6\:4e8c\:6b21\:65b9\:7a0b\:7684\:7cfb\:6570\
\:8868(\:7ed9\:51fa\:5728 ",
 Cell[BoxData[
  StyleBox["poly", "TI"]], "InlineFormula",
  FontFamily->"Source Sans Pro",ExpressionUUID->
  "bf54f79d-09bd-4e9f-a77d-3479df213c90"],
 " \:4e2d ",
 Cell[BoxData[
  StyleBox["var", "TI"]], "InlineFormula",
  FontFamily->"Source Sans Pro",ExpressionUUID->
  "054bd733-26a4-4268-94b5-c51fd4a33c47"],
 " \:7684\:5e42\:7cfb\:6570\:7684\:5217\:8868\:ff0c\:4ece ",
 Cell[BoxData[
  StyleBox["0", "TR"]], "InlineFormula",
  FontFamily->"Source Sans Pro",ExpressionUUID->
  "b8bebeb7-2153-4134-9e77-0b4a64adec05"],
 " \:6b21\:5e42\:5f00\:59cb)"
}], "Text",
 CellChangeTimes->{{3.7853707485093727`*^9, 3.785370782943294*^9}, {
  3.785371126344283*^9, 
  3.785371128623763*^9}},ExpressionUUID->"530e27ef-1506-4116-a771-\
bcb74f5060f7"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"list", "=", 
       RowBox[{"ToExpression", "@", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"StringJoin", "[", 
             RowBox[{
              RowBox[{
               RowBox[{"{", 
                RowBox[{"\"\<x\>\"", ",", "\"\<y\>\"", ",", "\"\<z\>\""}], 
                "}"}], "[", 
               RowBox[{"[", "#", "]"}], "]"}], ",", 
              RowBox[{"ToString", "[", "k", "]"}]}], "]"}], "&"}], "/@", 
           RowBox[{"Range", "[", "3", "]"}]}], ",", 
          RowBox[{"{", 
           RowBox[{"k", ",", "1", ",", "4"}], "}"}]}], "]"}]}]}], ",", 
      "list2", ",", "list3", ",", "list4"}], "}"}], ",", 
    RowBox[{
     RowBox[{"list4", "=", 
      RowBox[{"AssociationThread", "[", 
       RowBox[{
        RowBox[{"Flatten", "@", 
         RowBox[{"list", "[", 
          RowBox[{"[", 
           RowBox[{"1", ";;", "2"}], "]"}], "]"}]}], ",", 
        RowBox[{"Join", "[", 
         RowBox[{
          RowBox[{"{", "l", "}"}], ",", 
          RowBox[{
           RowBox[{"0", "&"}], "/@", 
           RowBox[{"Range", "[", "5", "]"}]}]}], "]"}]}], "]"}]}], ";", 
     RowBox[{"list2", "=", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"list", "[", 
             RowBox[{"[", 
              RowBox[{"2", " ", "#"}], "]"}], "]"}], "-", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"1", "+", 
               RowBox[{
                RowBox[{"ToExpression", "@", 
                 RowBox[{"StringJoin", "[", 
                  RowBox[{"\"\<l\>\"", ",", 
                   RowBox[{"ToString", "[", "#", "]"}]}], "]"}]}], "/", 
                RowBox[{"sqrt", "[", 
                 RowBox[{"Total", "[", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"list", "[", 
                    RowBox[{"[", 
                    RowBox[{"2", " ", "#"}], "]"}], "]"}], "-", 
                    RowBox[{"list", "[", 
                    RowBox[{"[", 
                    RowBox[{
                    RowBox[{"2", " ", "#"}], "-", "1"}], "]"}], "]"}]}], 
                    ")"}], "^", "2"}], "]"}], "]"}]}]}], ")"}], "*", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"list", "[", 
                RowBox[{"[", 
                 RowBox[{"2", " ", "#"}], "]"}], "]"}], "-", 
               RowBox[{"list", "[", 
                RowBox[{"[", 
                 RowBox[{
                  RowBox[{"2", " ", "#"}], "-", "1"}], "]"}], "]"}]}], 
              ")"}]}]}], "&"}], "/@", 
          RowBox[{"Range", "[", "2", "]"}]}], ")"}], "/.", "list4"}], "/.", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"sqrt", "[", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "x3"}], "+", "x4"}], ")"}], "2"], "+", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "y3"}], "+", "y4"}], ")"}], "2"], "+", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "z3"}], "+", "z4"}], ")"}], "2"]}], "]"}], 
          "\[Rule]", "r1"}], ",", 
         RowBox[{
          RowBox[{"sqrt", "[", 
           RowBox[{"l", "^", "2"}], "]"}], "\[Rule]", "l"}]}], "}"}]}]}], ";", 
     RowBox[{"CoefficientList", "[", 
      RowBox[{
       RowBox[{"Numerator", "@", 
        RowBox[{"Together", "[", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{"Dot", "[", 
                 RowBox[{"a", ",", "b"}], "]"}], "^", "2"}], "/", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"Total", "[", 
                  RowBox[{"a", "^", "2"}], "]"}], "*", 
                 RowBox[{"Total", "[", 
                  RowBox[{"b", "^", "2"}], "]"}]}], ")"}]}], "/.", 
              RowBox[{"AssociationThread", "[", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{"a", ",", "b"}], "}"}], ",", 
                RowBox[{"Flatten", "[", 
                 RowBox[{
                  RowBox[{"Differences", "/@", 
                   RowBox[{"{", 
                    RowBox[{
                    RowBox[{"list", "[", 
                    RowBox[{"[", 
                    RowBox[{"1", ";;", "2"}], "]"}], "]"}], ",", "list2"}], 
                    "}"}]}], ",", "1"}], "]"}]}], "]"}]}], ")"}], "/.", 
            "list4"}], ")"}], "-", 
          RowBox[{"1", "/", "2"}]}], "]"}]}], ",", "l2"}], "]"}]}]}], "]"}], "//",
   "TraditionalForm"}]], "Input",
 CellLabel->"In[9]:=",ExpressionUUID->"736b25f1-5dc4-458c-a518-9df558e23bd6"],

Cell[BoxData[
 FormBox[
  RowBox[{"{", 
   RowBox[{
    RowBox[{
     RowBox[{
      SuperscriptBox["l", "2"], " ", 
      SuperscriptBox["r1", "2"]}], "+", 
     RowBox[{"2", " ", "l", " ", "l1", " ", 
      SuperscriptBox["r1", "2"]}], "-", 
     RowBox[{"2", " ", "l", " ", 
      SuperscriptBox["r1", "2"], " ", "x3"}], "+", 
     RowBox[{
      SuperscriptBox["l1", "2"], " ", 
      SuperscriptBox["r1", "2"]}], "-", 
     RowBox[{"2", " ", "l1", " ", 
      SuperscriptBox["r1", "2"], " ", "x3"}], "+", 
     RowBox[{
      SuperscriptBox["r1", "2"], " ", 
      SuperscriptBox["x3", "2"]}], "-", 
     RowBox[{
      SuperscriptBox["r1", "2"], " ", 
      SuperscriptBox["y3", "2"]}], "-", 
     RowBox[{
      SuperscriptBox["r1", "2"], " ", 
      SuperscriptBox["z3", "2"]}]}], ",", 
    RowBox[{
     RowBox[{"-", 
      RowBox[{"2", " ", "l", " ", "r1", " ", "x3"}]}], "+", 
     RowBox[{"2", " ", "l", " ", "r1", " ", "x4"}], "-", 
     RowBox[{"2", " ", "l1", " ", "r1", " ", "x3"}], "+", 
     RowBox[{"2", " ", "l1", " ", "r1", " ", "x4"}], "+", 
     RowBox[{"2", " ", "r1", " ", 
      SuperscriptBox["x3", "2"]}], "-", 
     RowBox[{"2", " ", "r1", " ", "x3", " ", "x4"}], "-", 
     RowBox[{"2", " ", "r1", " ", 
      SuperscriptBox["y3", "2"]}], "+", 
     RowBox[{"2", " ", "r1", " ", "y3", " ", "y4"}], "-", 
     RowBox[{"2", " ", "r1", " ", 
      SuperscriptBox["z3", "2"]}], "+", 
     RowBox[{"2", " ", "r1", " ", "z3", " ", "z4"}]}], ",", 
    RowBox[{
     SuperscriptBox["x3", "2"], "-", 
     RowBox[{"2", " ", "x3", " ", "x4"}], "+", 
     SuperscriptBox["x4", "2"], "-", 
     SuperscriptBox["y3", "2"], "+", 
     RowBox[{"2", " ", "y3", " ", "y4"}], "-", 
     SuperscriptBox["y4", "2"], "-", 
     SuperscriptBox["z3", "2"], "+", 
     RowBox[{"2", " ", "z3", " ", "z4"}], "-", 
     SuperscriptBox["z4", "2"]}]}], "}"}], TraditionalForm]], "Output",
 CellChangeTimes->{3.7853711800013638`*^9},
 CellLabel->
  "Out[9]//TraditionalForm=",ExpressionUUID->"56fa469f-8e12-4e1f-a9f3-\
e80d0793ed48"]
}, Open  ]],

Cell[TextData[{
 "\:4ee4c=",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     SuperscriptBox["l", "2"], " ", 
     SuperscriptBox["r1", "2"]}], "+", 
    RowBox[{"2", " ", "l", " ", "l1", " ", 
     SuperscriptBox["r1", "2"]}], "-", 
    RowBox[{"2", " ", "l", " ", 
     SuperscriptBox["r1", "2"], " ", "x3"}], "+", 
    RowBox[{
     SuperscriptBox["l1", "2"], " ", 
     SuperscriptBox["r1", "2"]}], "-", 
    RowBox[{"2", " ", "l1", " ", 
     SuperscriptBox["r1", "2"], " ", "x3"}], "+", 
    RowBox[{
     SuperscriptBox["r1", "2"], " ", 
     SuperscriptBox["x3", "2"]}], "-", 
    RowBox[{
     SuperscriptBox["r1", "2"], " ", 
     SuperscriptBox["y3", "2"]}], "-", 
    RowBox[{
     SuperscriptBox["r1", "2"], " ", 
     SuperscriptBox["z3", "2"]}]}], TraditionalForm]],
  CellChangeTimes->{3.7853711800013638`*^9},ExpressionUUID->
  "e4651274-8a8a-4ee1-b007-271fdb33df3e"],
 ",\nb=",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"-", 
     RowBox[{"2", " ", "l", " ", "r1", " ", "x3"}]}], "+", 
    RowBox[{"2", " ", "l", " ", "r1", " ", "x4"}], "-", 
    RowBox[{"2", " ", "l1", " ", "r1", " ", "x3"}], "+", 
    RowBox[{"2", " ", "l1", " ", "r1", " ", "x4"}], "+", 
    RowBox[{"2", " ", "r1", " ", 
     SuperscriptBox["x3", "2"]}], "-", 
    RowBox[{"2", " ", "r1", " ", "x3", " ", "x4"}], "-", 
    RowBox[{"2", " ", "r1", " ", 
     SuperscriptBox["y3", "2"]}], "+", 
    RowBox[{"2", " ", "r1", " ", "y3", " ", "y4"}], "-", 
    RowBox[{"2", " ", "r1", " ", 
     SuperscriptBox["z3", "2"]}], "+", 
    RowBox[{"2", " ", "r1", " ", "z3", " ", "z4"}]}], TraditionalForm]],
  CellChangeTimes->{3.7853711800013638`*^9},ExpressionUUID->
  "4e3f0fc4-dcb2-4483-a376-093675e5bb05"],
 ",\na=",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SuperscriptBox["x3", "2"], "-", 
    RowBox[{"2", " ", "x3", " ", "x4"}], "+", 
    SuperscriptBox["x4", "2"], "-", 
    SuperscriptBox["y3", "2"], "+", 
    RowBox[{"2", " ", "y3", " ", "y4"}], "-", 
    SuperscriptBox["y4", "2"], "-", 
    SuperscriptBox["z3", "2"], "+", 
    RowBox[{"2", " ", "z3", " ", "z4"}], "-", 
    SuperscriptBox["z4", "2"]}], TraditionalForm]],
  CellChangeTimes->{3.7853711800013638`*^9},ExpressionUUID->
  "723716de-4d13-4d57-802a-977c648f576c"]
}], "Text",
 CellChangeTimes->{{3.785371193127737*^9, 
  3.7853712708087587`*^9}},ExpressionUUID->"3ed8bfda-adfc-49ef-bc84-\
e56023369bc7"],

Cell[TextData[{
 "\:5173\:4e8el2\:7684\:65b9\:7a0b\:7b49\:4ef7\:4e8e ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     RowBox[{"a", " ", 
      SuperscriptBox["l2", "2"]}], "+", 
     RowBox[{"b", " ", "l2"}], "+", "c"}], "\[LongEqual]", "0"}], 
   TraditionalForm]],
  CellChangeTimes->{{3.785371340824749*^9, 3.785371345182722*^9}},
  ExpressionUUID->"134d392a-ab6f-4fda-b7ec-b127603481c4"]
}], "Text",
 CellChangeTimes->{{3.785371277546583*^9, 
  3.785371352508456*^9}},ExpressionUUID->"cee208ca-91aa-471c-b9c0-\
182634c9ad8f"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", " ", 
  RowBox[{
   FormBox[
    RowBox[{
     RowBox[{
      RowBox[{"a", " ", 
       SuperscriptBox["l2", "2"]}], "+", 
      RowBox[{"b", " ", "l2"}], "+", "c"}], "\[LongEqual]", "0"}],
    TraditionalForm], ",", "l2"}], "]"}]], "Input",
 CellChangeTimes->{{3.785371363889297*^9, 3.7853713755130987`*^9}},
 CellLabel->"In[10]:=",ExpressionUUID->"c6eea544-e5cf-4f22-aa79-55d8cd2bf2a4"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"l2", "\[Rule]", 
     FractionBox[
      RowBox[{
       RowBox[{"-", "b"}], "-", 
       SqrtBox[
        RowBox[{
         SuperscriptBox["b", "2"], "-", 
         RowBox[{"4", " ", "a", " ", "c"}]}]]}], 
      RowBox[{"2", " ", "a"}]]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"l2", "\[Rule]", 
     FractionBox[
      RowBox[{
       RowBox[{"-", "b"}], "+", 
       SqrtBox[
        RowBox[{
         SuperscriptBox["b", "2"], "-", 
         RowBox[{"4", " ", "a", " ", "c"}]}]]}], 
      RowBox[{"2", " ", "a"}]]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.78537137618622*^9},
 CellLabel->"Out[10]=",ExpressionUUID->"d02b880d-c16f-43ab-b158-baf5f5969253"]
}, Open  ]],

Cell[TextData[{
 "\:4ee4x1=",
 Cell[BoxData[
  FractionBox[
   RowBox[{
    RowBox[{"-", "b"}], "+", 
    SqrtBox[
     RowBox[{
      SuperscriptBox["b", "2"], "-", 
      RowBox[{"4", " ", "a", " ", "c"}]}]]}], 
   RowBox[{"2", " ", "a"}]]],
  CellChangeTimes->{3.78537137618622*^9},ExpressionUUID->
  "2600b126-2acb-450b-b3cb-589cd0f88171"],
 ",x2=-b/a-x1,\:4ee3\:5165P23\:7684\:5750\:6807\:8868\:8fbe\:5f0f"
}], "Text",
 CellChangeTimes->{
  3.785371434934561*^9, {3.7853714728382597`*^9, 
   3.7853715230429573`*^9}},ExpressionUUID->"fbabb046-b50a-46cd-91b5-\
f13073b3ccf8"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"x4", "-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           FractionBox["l2", "r1"], "+", "1"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{"x4", "-", "x3"}], ")"}]}]}], ",", 
       RowBox[{"y4", "-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           FractionBox["l2", "r1"], "+", "1"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{"y4", "-", "y3"}], ")"}]}]}], ",", 
       RowBox[{"z4", "-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           FractionBox["l2", "r1"], "+", "1"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{"z4", "-", "z3"}], ")"}]}]}]}], "}"}], "/.", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"l2", "\[Rule]", "x1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"l2", "\[Rule]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "b"}], "/", "a"}], "-", "x1"}]}], "}"}]}], "}"}]}], "//",
     "FullSimplify"}], "//", "TraditionalForm"}], TraditionalForm]], "Input",
 CellChangeTimes->{{3.785371544557765*^9, 3.785371588489203*^9}},
 CellLabel->"In[15]:=",ExpressionUUID->"cb87ad11-f087-4564-9952-0a24f6a8e9e4"],

Cell[BoxData[
 FormBox[
  StyleBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       FractionBox[
        RowBox[{
         RowBox[{"x3", " ", 
          RowBox[{"(", 
           RowBox[{"r1", "+", "x1"}], ")"}]}], "-", 
         RowBox[{"x1", " ", "x4"}]}], "r1"], 
       FractionBox[
        RowBox[{
         RowBox[{"y3", " ", 
          RowBox[{"(", 
           RowBox[{"r1", "+", "x1"}], ")"}]}], "-", 
         RowBox[{"x1", " ", "y4"}]}], "r1"], 
       FractionBox[
        RowBox[{
         RowBox[{"z3", " ", 
          RowBox[{"(", 
           RowBox[{"r1", "+", "x1"}], ")"}]}], "-", 
         RowBox[{"x1", " ", "z4"}]}], "r1"]},
      {
       RowBox[{"x4", "-", 
        FractionBox[
         RowBox[{
          RowBox[{"(", 
           RowBox[{"x3", "-", "x4"}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"a", " ", 
             RowBox[{"(", 
              RowBox[{"x1", "-", "r1"}], ")"}]}], "+", "b"}], ")"}]}], 
         RowBox[{"a", " ", "r1"}]]}], 
       RowBox[{"y4", "-", 
        FractionBox[
         RowBox[{
          RowBox[{"(", 
           RowBox[{"y3", "-", "y4"}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"a", " ", 
             RowBox[{"(", 
              RowBox[{"x1", "-", "r1"}], ")"}]}], "+", "b"}], ")"}]}], 
         RowBox[{"a", " ", "r1"}]]}], 
       RowBox[{"z4", "-", 
        FractionBox[
         RowBox[{
          RowBox[{"(", 
           RowBox[{"z3", "-", "z4"}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"a", " ", 
             RowBox[{"(", 
              RowBox[{"x1", "-", "r1"}], ")"}]}], "+", "b"}], ")"}]}], 
         RowBox[{"a", " ", "r1"}]]}]}
     },
     GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.7]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}], "\[NoBreak]", ")"}],
   FontSize->16], TraditionalForm]], "Input",
 CellChangeTimes->{3.785371594252434*^9},
 CellLabel->
  "Out[15]//TraditionalForm=",ExpressionUUID->"b92cccca-05d2-488b-9f07-\
79ae1006c8f1"],

Cell["\<\
\:4ee5\:4e0a\:5c31\:5f97\:5230\:4e86P23\:6700\:7cbe\:7b80\:7684\:8868\:8fbe\
\:5f0f
\
\>", "Text",
 CellChangeTimes->{{3.785371651720694*^9, 3.785371694863365*^9}, 
   3.785373516321262*^9},ExpressionUUID->"25f64cae-bfea-4493-96be-\
5dea300ce4c2"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.7853716449169197`*^9, 
  3.7853716456665373`*^9}},ExpressionUUID->"e4bf0e1d-da6d-4555-8d48-\
f85a8b03b508"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.785371421276782*^9, 
  3.785371422615655*^9}},ExpressionUUID->"9d779b36-d920-4201-ae60-\
fc8dca108569"]
}, Open  ]]
}, Open  ]]
},
WindowSize->{808, 601},
WindowMargins->{{495, Automatic}, {Automatic, 61}},
PrintingCopies->1,
PrintingPageRange->{1, Automatic},
FrontEndVersion->"12.0 for Mac OS X x86 (64-bit) \
(2019\:5e745\:670818\:65e5)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 287, 5, 69, "Chapter",ExpressionUUID->"59b370b8-ab07-447b-8a01-a3eb43086b69"],
Cell[870, 29, 347, 7, 35, "Text",ExpressionUUID->"60a03f1e-d9ed-4f29-9b05-a91928b5fdf2"],
Cell[CellGroupData[{
Cell[1242, 40, 157, 3, 67, "Section",ExpressionUUID->"ef69da8b-8f4a-4f07-9b4d-0600f70daad9"],
Cell[1402, 45, 40199, 664, 337, "Input",ExpressionUUID->"56514a84-a6f4-4544-a5a6-4761b2a32183"]
}, Open  ]],
Cell[CellGroupData[{
Cell[41638, 714, 229, 4, 67, "Section",ExpressionUUID->"bb979de0-5c40-487f-b14b-285bf4fd4160"],
Cell[41870, 720, 1216, 29, 73, "Text",ExpressionUUID->"20203296-b9c5-489d-927c-ac2c46875810"],
Cell[CellGroupData[{
Cell[43111, 753, 748, 20, 67, "Input",ExpressionUUID->"0115fed0-9547-4c74-a0fb-c74fe0045645"],
Cell[43862, 775, 23119, 463, 155, "Output",ExpressionUUID->"be72ea45-02ae-418d-bde3-b5834bb27cf1"]
}, Open  ]],
Cell[66996, 1241, 331, 5, 35, "Text",ExpressionUUID->"e22adae8-b71b-41a4-a92d-ab5c5ab43725"],
Cell[CellGroupData[{
Cell[67352, 1250, 4906, 139, 502, "Input",ExpressionUUID->"16640ec2-2c9d-44e6-b075-301d2cdfd4db"],
Cell[72261, 1391, 17520, 474, 658, "Output",ExpressionUUID->"b43052f0-97a1-4136-8f91-f2a75104a31a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[89818, 1870, 245, 5, 44, "Input",ExpressionUUID->"bb90a733-d836-4bdf-9cbb-bb5a2e5f2c2e"],
Cell[90066, 1877, 16612, 445, 127, "Output",ExpressionUUID->"a91e6019-ded3-4854-8c0e-ab109f5fa946"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[106727, 2328, 192, 3, 67, "Section",ExpressionUUID->"0a86a314-2ac9-4333-bb2f-e6057ed9382a"],
Cell[106922, 2333, 515, 8, 35, "Text",ExpressionUUID->"aebaa02e-258c-435a-9010-bd1922843e6b"],
Cell[CellGroupData[{
Cell[107462, 2345, 4857, 134, 422, "Input",ExpressionUUID->"e8288135-f434-457a-9fe8-15c0c7f06fa0"],
Cell[112322, 2481, 1713, 56, 83, "Output",ExpressionUUID->"8dde3fba-f93a-401e-a3b2-8d5d2b06a6f0"]
}, Open  ]],
Cell[114050, 2540, 862, 22, 35, "Text",ExpressionUUID->"530e27ef-1506-4116-a771-bcb74f5060f7"],
Cell[CellGroupData[{
Cell[114937, 2566, 4998, 136, 530, "Input",ExpressionUUID->"736b25f1-5dc4-458c-a518-9df558e23bd6"],
Cell[119938, 2704, 2033, 54, 98, "Output",ExpressionUUID->"56fa469f-8e12-4e1f-a9f3-e80d0793ed48"]
}, Open  ]],
Cell[121986, 2761, 2375, 66, 81, "Text",ExpressionUUID->"3ed8bfda-adfc-49ef-bc84-e56023369bc7"],
Cell[124364, 2829, 539, 15, 35, "Text",ExpressionUUID->"cee208ca-91aa-471c-b9c0-182634c9ad8f"],
Cell[CellGroupData[{
Cell[124928, 2848, 425, 11, 46, "Input",ExpressionUUID->"c6eea544-e5cf-4f22-aa79-55d8cd2bf2a4"],
Cell[125356, 2861, 741, 24, 60, "Output",ExpressionUUID->"d02b880d-c16f-43ab-b158-baf5f5969253"]
}, Open  ]],
Cell[126112, 2888, 579, 18, 48, "Text",ExpressionUUID->"fbabb046-b50a-46cd-91b5-f13073b3ccf8"],
Cell[126694, 2908, 1281, 39, 80, "Input",ExpressionUUID->"cb87ad11-f087-4564-9952-0a24f6a8e9e4"],
Cell[127978, 2949, 2241, 70, 87, InheritFromParent,ExpressionUUID->"b92cccca-05d2-488b-9f07-79ae1006c8f1"],
Cell[130222, 3021, 257, 7, 58, "Text",ExpressionUUID->"25f64cae-bfea-4493-96be-5dea300ce4c2"],
Cell[130482, 3030, 156, 3, 30, "Input",ExpressionUUID->"e4bf0e1d-da6d-4555-8d48-f85a8b03b508"],
Cell[130641, 3035, 152, 3, 30, "Input",ExpressionUUID->"9d779b36-d920-4201-ae60-fc8dca108569"]
}, Open  ]]
}, Open  ]]
}
]
*)

